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Introduction 

This IMS is organized into three basic sections. Section II deals 
with routines that are involved with the I/O of the system, 
Section III deals with the utility routines available in the 
system, while Section IV covers some of the mathematical routines. 

The IMS assumes that the reader has a working knowledge of FORTRAN 
and knows the general form of the statements involved. For in- 
stance, in considering a statement such as PRINT n, L, it is 
assumed that the reader is familiar with the meanings normally 
attached to "n" and »L". 

A. Definition of Terms 

The following table contains terms and abbreviations freely 
used in the IMS that the reader may not be familiar with: 

ABBREVIATIONS 

ADDR = address 

A/N = alphanumeric 

BA = buffer argument (first word address of FET) 

BS = buffer status 

C/R = character/record 

CTR = counter 

C/W = character /word 

EOF = end- of -file 

EOI = end-of- information 

EOR = end-of-record 

FET = File Environment Table 

FN = file number 

FWA =/ first word address 

I/O = Input /©utput 
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LOG 


= 


logical 


LWA 


= 


last word address 


0/L 


' = 


overlay 


OP 


= 


operation 


PRU 


= 


physical record unit 


PTR 


= 


pointer 


RA 


— 


reference address 


RC 


= 


record count 


RCL 


— 


recall 


RJ 


= 


return 
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B. Concepts 

1. Location one - RA+1 is the way of communicating with the 
operating system. 

2. Periodic recall - normal recall in which the central pro- 
cessor is relinquished only until the next time around 
the monitor loop. 

3. Automatic recall - recall in which the central processor 
is relinquished until bit in a specified location is 
set to 1, indicating the completion of some peripheral 
processor activity (eg. an input/output operation on a 
file). 

4. FET - the FET area, especially words 5 and 14 which con- 
tain the record count and end-of-file flag, are widely 
used. 

5. Read ahead - the FORTRAN I/O system will read ahead on 
the binary and coded files in an attempt to make the I/O 
more efficient. • This read ahead makes the backspacing 
of files involved. 

6. Execution File Name Handling - SYSTEM (Q8NTRY) places in 
RA+2, and the locations immediately following, the file 
names from the FORTRAN PROGRAM card. The name of the 
file is left justified and the file's FET address is 
right justified in the word. (Thus the declared file 
names replace any actual file names at execution time in 
the RA area.) 

The logical file name (LFN) which appears in the first 
word of the FET is determined in one of the three 
following ways: 

CASE 1: If no actual parameters are specified, 
the LFN will be the file name from the 
PROGRAM card. 



Example 



i 

4 

RUN(S) 
LGO. 

PROGRAM TEST1 (INPUT, OUTPUT, TAPE1, TAPE2) 
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Before SYSTEM (Q8NTRY) 



RA+2 

After 
RA+2 



CASE 2: 



Example 



Before 



000 
000 



000 
000 



INPUT— 
OUTPUT- 
TAPE1— 
TAPE2— 



-FET address 

-FET address 

-FET address 

-FET address 



LFN in FET 
INPUT 
OUTPUT 
TAPE1 
TAPE 2 

If actual parameters are specified, the 
LFN will be that specified by the 
corresponding actual parameter, or the 
file name from the PROGRAM card if no 
actual parameter was specified. 

Note: It must be recognized that a 
one-to-one correspondence 
exists between the actual 
parameters and the file names 
found on the PROGRAM card. 



RUN(S) 
LGO(,,DATA,ANSW) 

t 

PROGRAM TEST2(INPUT, OUTPUT, TAPE1, TAPE2, 
TAPE3=tfAPEl) 



o 



RA+2 000— 
000— 
DATA- 
ANSW- 



After 
RA+2 



INPUT— 
OUTPUT- 
TAPE1— 
TAPE 2— 
TAPE3 



-000 
-000 
-000 
-000 



-FET address 
-FET address 
-FET address 
-FET address 
FET address of 
TAPE1 



LFN in FET 

INPUT 

OUTPUT 

DATA 

ANSW 

Uses TAPE1 FET 
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CASE 3: An equivalenced file name from the PROGRAM 
card will ignore an actual parameter. The 
LFN will be that of the file to the right 
of the equivalence and no new FET will be 
created. 



Example : 



RUN(S) 
LGO(,,DATA,ANSW) 

o 
■ • 

PROGRAM TEST3( INPUT, OUTPUT, TAPE l=OUT PUT, 
TAPE2,TAPE3) 



Before 
RA+2 



o 



After 
RA+2 



DOG- 
GOO— 
DATA- 
ANSW- 



INPUT— 
OUTPUT- 
TAPE1— 



TAPE 2- 
TAPE3- 



-000 
-000 
-000 
-000 



LFN in FET 
-FET address INPUT 
-FET address OUTPUT 
-FET address of OUTPUT Uses OUTPUT 

FET 
-FET address ANSW 
-FET address TAPE 3 
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C. Routine SYSTEM 

1.0 General Information 

System is a multiple entry routine which handles 
program initialization, error tracing, diagnostic 
printing, termination of output buffers, and 
transfers to specified non-standard error 
procedures. 

1.1 Approximate length: 1055B 

2.0 Entry Points 

2.1 Q8NTRY - Initializes I/O buffer parameters 

2.1.1 Calling Sequence and Returns 

Entered by doing an RJ to Q8NTRY with the follow- 
ing conditions: 

A0 = execution field length 

Bl = address of first word of program 

B2 = address of word containing length 

of main program, less buffers 
B2+l= address of USASI switch 
RA+2= L00---0 if a line count had been 

specified on the users RUN card or 

the first file name. 
RA+3= Line count if a line limit has been 

specified on the next file name. 
RA+64~Number of file names. 

Upon exit, the I/O buffers will have been 
initialized. See pages 2 and 3 of the General 
Concepts section for a thorough explanation 
and examples. 

2.2 END - terminates all output buffers, prints the 
error summary, transfers control to the 
calling overlay if in overlay mode and 
not in (0,0) overlay, or, in any other 
case, exits to monitor. £\ 

2.2.1 Calling Sequence and Returns 

Entered by doing an RJ to END. 
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EXIT - enters EXIT in the dayfile and begins END 
processing. 

Calling Sequence and Returns 

Entered by doing an RJ to EXIT. 

STOP - enters STOP in the dayfile and begins END 
processing. 

Calling Sequence and Returns 

Entered by doing an RJ to STOP, where 

X7 = the message following STOP on the 

FORTRAN source statement, or blanks 
if none. 

ABNORML - Recovery from fatal error changed to 
non-fatal. 

Calling Sequence and Returns 

This routine gains control from an execution 
time routine when an error has been assembled 
as fatal and during the processing of the job 
was changed to non-fatal with non-standard 
error recovery. An abonormal termination is 
given. 

An RJ to SYSTEM must have been done just prior 
to executing an RJ to ABNORML. 

SYSTEMC - changes entry in SYSTEM'S error 
table according to the arguments 
passed. 



2.6.1 Calling Sequence and Returns 

Entered by doing an RJ to SYSTEMC or by 
calling SYSTEM from a FORTRAN program, via a 
special entry point, SYSTEMP. 



Entry 



Bl = Address of error number 
B2 = Beginning address of 
parameter list 
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2.7 



2.8 



2.8.1 



First = Fatal (non-zero)/non- fatal (0) 
Second = Print frequency (8 bits) 
Third = Print frequency increment 

(8 bits) 
Fourth = Print limit (12 bits) 
Fifth = Non-standard recovery 

address 
Sixth = Maximum traceback for any 

error 
If any parameter in list is negative, then its 
value is not altered. 

SYSTEMP - Adjusts arguments for use in non- 
standard recovery, then transfers to 
SYSTEM for error processing. 



2.7.1 Calling Sequence and Returns 

Entered by doing an RJ to SYSTEMP, or CALL 
SYSTEMP with eight parameters from a FORTRAN 
program. (For a description of FORTRAN 
utilization, of SYSTEMP, see Appendix J, 
FORTRAN Reference Manual.) 



Entry B1-B6 

XI 
^X2 



= either dummy parameters, or 

arguments of calling routine 
= address of error number 
= message address 



SYSTEM - Error tracing, diagnostic printing, 
termination of output buffers. 

Calling Sequence and Returns 

Entered by doing an RJ to SYSTEM. 

Entry XI = error number 

X2 = address of diagnostic message 

Special Entry Conditions 

XI = -1 SYSTEM call from routine 
END; all normal buffer 
closeout procedures are to 
be performed. 
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XI = SYSTEM call from routine 
ABNORML; perform minimal 
buffer closeout procedures. 

When through processing, SYSTEM either transfers 
to a specified non-standard error recovery 
address, aborts the job, or returns to the cal- 
ling routine, depending on the type of error 
being processed. 

Diagnostics 

Fatal to execution 

"Output line limit exceeded," error number 84, 
will be given and execution of the program 
halted if the line limit is exceeded. 

Job will be aborted by Q8NTRY if the SCOPE 2 
common block is too small to hold the files 
assigned to it. 

External Routines 

ADVIN. 

Calling Sequence and Returns 

A RJ to ADVIN is made with 

XI = address of first word of 
FET of the file 

ADVIN advances the IN pointer by 1. 

INITL. 

Calling Sequence and Returns 

A RJ to INITL. is made with the following 
registers set: 

Entry B2 = address of first word of FET 

of the file, or the complement 
of either the file name or 
logical tape number. 
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4.3 
4.3.1 



4.4 
4.4.1 



4.5 
4.5.1 



X6 = open parameter 

X7 = read/write parameter 

Exit B2 = address of first word of FET 

of the file, or unchanged if 

file not found. 
X5 ■= code and status 
X6 = CIO control word 
B5 = 1 
B6 = -1 if an uncleared EOF on a 

read request 
B6 = -2 if an attempted read after 

write 

CI01. 

Calling Sequence and Returns 

Entry B6 = return address 

XI = address of first word of FET 
X2 = function code for CIO 

OPEN. - opens files 

Calling Sequence and Returns 

This routine is entered by doing an RJ to OPEN 
with XI set to the address of the first word 
of the FET of the associated file and X2 set 
to the function code for the desired call to 
OPE. 

Upon exit, the file will have been opened in 
the manner determined by the function code. 

SIO. 

Calling Sequence and Returns 

This is the entry point for read/write process- 
ing. It is entered by doing an RJ to SIO with 
XI set to the address of the first word of the 
FET associated with the file, SIO.CTL control 
word with bit 2 =0 for a read request and =1 
for a write request, and B registers set accord- 
ing to the following criteria: 
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B7=0 This is a formatted I/O 
request 

For a formatted read request, 
the 150 character DAT. buffer 
will be utilized, with blank 
fill, replacing any zero bytes 
with blanks. 

For a formatted write request 
Bl contains the number of 
characters to be written from 
the DAT. buffer, starting at 
DAT., through DAT. + Bl-l. 
Characters are expected in Rl 
format; i.e. right-adjusted, 
one character per word, with 
zero fill. 

B7f0 This is an unformatted I/O 
request 

Bl =0 INFUTB/OUTPUTB initial- 
ization 

B1>0 unformatted read/write 
request, Bl contains 
the number of words to 
be transferred 
Bl< INPUTB/OUTPUTB termina- 
tion 

Upon exit data will have been transferred be- 
tween the area defined and the buffer, operat- 
ing system calls will have been made as re- 
quired, and IN and OUT will have been updated. 
Also X4 will have been set as follows: 

X4 - EOR 
X4 < EOF 
X4 > else 

4.6 SIO.END - Write an end-of -file indication on a 

file 

4.6.1 Calling Sequence and Returns 
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This routine is entered by executing an RJ to 
SIO.END with XI set to the address of the first 
word of the FET Of the file to be accessed. 
Any remaining data in the buffer is written to 
the file and then an end-of-file indication is 
appended to the file. 



O 



5.0 
5.1 



5.2 



Structure 

Q8NTRY - the initialization routine for program 
buffers. If initialization is not necessary, 
control is returned to the calling routine, 
otherwise RA+2 is checked to see whether or not 
it contains a line count flag. If it does, the 
line count is converted from BCD to octal and 
stored, the number of files decremented by two 
and the remaining files are moved up two cells 
in the users RA area. The buffers and their 
associated FET'S are then set up. If the FET is 
in the SC0PE2 common block, a buffer area is set 
aside at the LWA+1 of the program. The FET is 
kept in the common block and not intimately 
associated with the buffer. If the FET does not 
reside in the SCOPE2 Common block, the FWA of 
the FET is set to the FWA of the buffer and the 
FWA of the buffer changed to LWA+1 of the FET. 
Files are checked to see whether they have been 
equivalenced or whether an execution time file 
name has been denoted. (See section 1-B General 
Concepts for explanation of equivalenced file 
handling). Q8NTRY expects to find the file 
name in the upper 42 bits of the RA word and 
either the buffer length or the ordinal of the 
File to which the present File is to be 
equivalenced. The next FET is set up at the 
FWA+17 of the last FET. If the FET is not in the 
SC0PE2 Common block, the FWA of the next FET is 
moved to the LWA-17 of the previous buffer. When 
all Files have been initialized, control is 
returned to the calling program. 

END - traces back until it finds the main program, 
then fetches the program name and stores it with 
the format END NAME and calls MSG to write this 
message in the dayfile. It next makes a special 
call to SYSTEM to close all output buffers. On 
return, it issues an ENDRUN call to stop the program. 



4~\ 



o 



CA 138- t REV 10-67 



CONTROL DATA CORPORATION 



o 



DOCUMENT CLASS. 
PRODUCT NAME 



PRODUCT MODEL NO. 

5.3 
5.4 
5.5 



5.6 



o 



5.7 
5.8 



IMS 



— DIVISION 

PAGE NO I-C-8 



<&& 



RUN ?.T - OBJEr/r T.TRRAPV 

-0 010 * 2 . 3 MACHINE SERIES-64/&5-/660U 



EXIT - places EXIT message in the dayfile then 
transfers control to the SYSTEM call routine 
on END. 

STOP - places STOP + message into the dayfile 
then transfers control to the SYSTEM call 
routine of END. 

ABNORML - Fetches and stores last encountered 
error number and stores in display code 
"DETECTED BY (Program Name)". Jumps to 
SYSTEM to abort job. 

SYSTEMC - changes the structure of the error 
table entry to fit user specifications. The 
actual structure of the error table entry is 
revised and the new structure placed back 
into the error table. 

SYSTEMP - user callable routine to change the 
number and message of an error diagnostic. 

SYSTEM - handles all diagnostic printing and 
traceback for FORTRAN object time routines. 
Upon entry Bl, B2, B3, B7 and AO are saved. 
Checks to see that output buffer has been 
specified and whether or not a special call 
has been issued from END or INPUTC. For 
special call from END, the error summary is 
printed output buffers closed and the job 
terminated. On special call from INPUTC, 
the line of error occurance is printed out 
prior to error diagnostic and traceback in- 
formation. Otherwise, the specified error 
table entry is fetched and the diagnostic 
printed. If a non-standard recovery address 
has been specified, control is transferred to 
the specified user SUBPROGRAM. If an error 
number which is out of range has been 
specified it is given the number of the last 
entry on the error table. 
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II. Input /Output 

A. Introduction to I/O 

Upon encountering an input or output statement, the compiler 
generates a calling sequence for use by the execution time 
subroutines. There is no format cracking done during com- 
pilation, so all format diagnostics are produced during ex- 
ecution. Each particular set of I/O statement, i.e., READ, 
WRITE, ENCODE, BUFFER IN, etc, use an individual execution 
time subroutine. These subroutines do their own processing 
within themselves and depend only on the generalized routine 
SI0$ for the I/O. All information necessary for the com- 
pletion of the task is generated by the compiler and passed 
to the execution time routine with successive calls. 

In order for a central memory program to communicate with 
an external file, most information entering or leaving the 
program must pass through a buffer. For every I/O file, 
whether it be standard input or output, scratch tape, or tf J 

data tape, used by the FORTRAN program, a declaration of the 
file name must be made on the PROGRAM card. Each file name 
causes a" buffer with a minimum length of 1022 words or nor- 
mally 2022 words to be reserved for its use. The execution 
time subroutines use the SI0$ routine to communicate with the 
system CIO (Circular Input/Output) for the physical transfer 
of data. 

The compiler has I/O statement processors which decide from 
the form of statement which execution time routines are to be 
called. If a format statement is required, then the address 
of it must be available during execution. Sinze most 1/0 
has to pass through a buffer, the address of this buffer must 
also be known. This information is compiled and sent to the 
subroutine in one entry. The I/O list is processed and one 
entry is made for each array or data item. It is during 
these entries that the format statement is cracked. A final 
entry is made to signal the end of the listo 



ft ■? « 



The coded input statements (READ n, L; READ (i, n) L; READ 
INPUT TAPE i, n, L) call INPUTC. The file specified by "i 
is read and the data "L" returns to the program according 
to the format "n". During compilation, the address of the 
format statement is set into B3 to be passed to the subrou- 
tine. The address of a variable format is retrieved by 
assigning a variable tag to the format statement; thereby 
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fetching the proper address during execution. 

Binary data may be read by READ (i) L or READ TAPE i L 
During execution, INPUTB is referenced to read file »i»" 
and insert the data in "L». No special word count is 
reserved in the data itself. Binary data may be written 
on a file by WRITE (i) L or WRITE TAPE i, L. Either of 
these statements requests OUTPTB to transfer the informa- 
tion from »L« to file »i». The number of words written by 
these statements must be greater or equal to the number of 
words read by the corresponding READ statement. 

OUTPTC is the execution time subroutine called to write 
coded data on a file. The statements PRINT n, L: PUNCH 
n, L; WRITE (i, n) L; or WRITE OUTPUT TAPE i n L will 
all cause OUTPTC to be referenced. As with coded input, 
the format is cracked during execution. There is little 
OuT^c'and £_££? the Pr ° cedure ° f *>»** Peking used by 

ENCODE and DECODE statements are also available. Storage 
manipulation to transfer data under a specific FORMAT state- * 
ment is all that is involved so no physical data file is 
referenced. Therefore, the list processor used by READ/WRITE 
'X J S™ T iS 8 se ,2 uence to the execution time subroutines 
OUTPTS and INPUTS. These subroutines work on the same format 
cracking scheme as OUTPTC and INPUTC. 

All the aforementioned statements result in the I/O being 
accomplished by the execution time subroutines before control 
is returned to the central program. Therefore, the data is 
immediately available to the programmer after an I/O state- 
ment has been processed. However, the user may choose to 
butter his own I/O in which case the BUFFER IN and BUFFER OUT 
Statements are available. BUFFEI and BUFFEO (execution time 
subroutines) are called, respectively, to initiate the trans- 
fer of data via CIO. Control is returned to the central pro- 
gram as soon as SIO$ has requested CIO to initiate the file 
action. Any block of data, up to normal central memory 
restrictions, will be handled by these statements. Before 
using the data the user must check the status of the 
buffered unit by an IF (UNIT, i). This statement compiles 
a calling sequence to IOCHEK which is the execution time 
routine used for checking the status and actually complet- 
ing the buffer in process. 
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The execution time subroutines receive all addresses from 
the program via index registers. A calling sequence is 
contructed by the compiler for each statement. Listed on 
the following pages are the calling sequences used during 
execution. 
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RUN I/O Calling Sequences 

READ, WRITE, PRINT, PUNCH Bl-.= 



MACHINE sfrifc; 64/65/6600 



First entry 



Intermediate 
entries 



Final entry 

ENCODE, DECODE 

First entry 



Intermediate 
entries 



B2 = address of FET or complimented 
address of variable tape number. 

B3 = address of format statement or 

complemented address of variable 
format number (for coded only, 
B3 is not set for binary) . 

RJ INPUTB/INPUTC/OUTPTB/OUTPTC 

Bl = address of data item or begin- 
ning address of array. 

B2 = array length (# of words) or 1. 

RJ INPUTB/INPUTC/OUTPTB/OUTPTC 

Bl = -1 

RJ INPUTB/ INPUTC/ OUTPTB/ OUTPTC 



Bl = address of packed data. 

B3 = address of format statement or 
complemented address of 
variable format. 

B4 = character length or complemented 
address of variable character 
length. 

RJ INPUTS /OUTPTS 

Bl = address of data item or begin- 
ning address of array. 

B2 = array length (# of words) or 1. 

RJ INPUTS /OUTPTS 
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Final entry 

BUFFER IN, BUFFER OUT 
First entry 



Second entry 
Third entry 



NAMELIST 

(single entry) 



MACHINE SERIES 64/65/6600 



Bl = -1 

RJ INPUTS /OUTPTS 



Bl = mode constant 

B2 = address of buffer parameter 
list or complemented address 
of variable tape number. 

B7 = address of first word of 
data block 

B7 = address of last word of 
data block 



O 



RJ BUFFEI/BUFFEO 



Bl = address of NAMELIST information 

B2 = address of FET or complemented 
address of variable tape number, 

RJ INPUTN/OUTPTN 



O 



o 
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Final entry 

BUFFER IN, BUFFER OUT 
(single entry) 



NAMELIST 

(single entry) 



MACHINE SERIES 64/65/6600 



Bl 
RJ 



INPUTS /OUTPTS 



Bl - mode, or complemented address if 
variable mode. 

B2 = address of FET or complemented 
address of variable tape number. 

B3 - Fwa of data block. 

B4 = lwa of data block, or complemented 
lwa of data block if type double 
or complex. 

RJ BUFFEI/BUFFEO 



Bl = address of NAMELIST information 

B2 = address of FET or complemented 

address of variable tape number. 

RJ INPUTN/OUTPTN 
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The following table lists the routine called for each type 
of source statement: 



FORTRAN SOURCE 
STATEMENT 

1. READ (u) I 

2. WRITE (u) I 

3. READ (u,n) I 
READ n,l 

4. WRITE (u,n) I 
PRINT n,l 
PUNCH n,l 

5. DECODE (c,n,v) I 

6. ENCODE (c,n,v) I 

7. BUFFER IN 

8. BUFFER OUT 

9. IF (UNIT,!) 

10. IF (IOCHECK,i) 

11. ENDFILE i 

12. IF (ENDFILE,!) 
IF (EOF,!) 

13. BACKSPACE i 

14. REWIND i 



NAME OF OBJECT TIME 
ROUTINE REFERENCED 

INPUTB 

OUTPTB 

INPUTC 

OUTPTC 



INPUTS 

OUTPTS 
BUFFEI 

BUFFEO 

IOCHEK 

IOCHEC 

ENDFIL 

IFENDF 
IFENDF 

BACKSP 

REWINM 
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B. Use of File Environment Table (FET) and associated 
symbols by FORTRAN 

Symbol Word Use 

FET.BA 1 As described for SCOPE system, 

i.e., no special fields. 

FET. FIR 2 FIRST pointer and Device Type 

Indication (user error process- 
ing bits, and length of FET are 
also contained in this word.) 

FET. IN 3 IN pointer 

FET. OUT 4 OUT pointer 

FET.LIM 5 LIMIT pointer (PRU size and the 

number of PRUS per record block 
are also contained in this word*) 

FET.LCNT 6- The number of user logical records 

from the beginning of the file to 
the current position of the file. 

FET.MLRS 7 Maximum size logical record in- 
formation (applicable to S- and 
L-style tapes only.) 

FET.BINB 8 Minus zero, if this file is to be 

BINARY BLOCKED: it may also con- 
tain the line limit for the file 
OUTPUT. 

FET. PARI 9 Negative if a parity error has 

been encountered while reading. 

10-13 Used as described for SCOPE 
system. 

FET.WDS 14 a) BUFFER IN - word 14 contains 

35 17 0. 



FWA 



LWA+1 



1 
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Symbol 



FET.WDS 



_^_ MACHINE SPRlES 64/65/fifiOO 

Word Use 

where FWA and LWA are the 
parameters specified in the 
BUFFER IN statement. 

14 b) BUFFER OUT - word 14 contains 



35 



17 







JFUA I 



JUMIX. 



c) 



FET.EOF 



15 



FET.LMAX 



16 



where FIRST and LIMIT are the 
original FIRST and LIMIT for 
this file. These are the 
values restored in word 2 and 
word 5 by IOCHEK when the 
BUFFER OUT is completed. 

Lower 18 bits is set equal to 
the number of words read by a 
BUFFER IN statement. This is 
set by SIO$ (through IOCHEK) 
upon completing a BUFFER IN 
request. 

The file is a buffered file if 
bit and bit 59 are not the 
same. The "BUFFER I/O" flag 
is set by BUFFEI and BUFFEO. 

Independently of a), if word 
15<0, the last operation on 
this file read an EOF. If 
word 15K), no EOF was read. 
This flag, not the buffer 
status, is used to detect 
trying to read past an 
uncleared EOF. BUFFER I/O 
makes no use of this flag. 



Output file line limit. This is 
present by the compiler from a. 
parameter on the RUN card. At 
execution time OUTPTC decrements 
this value; if it reaches zero an 



b) 



o 






o 
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Symbol 



FET.TRIG 



O 



Word Use 

error is indicated and the job is 
aborted. (RUN only) . 

17 Bits 29-0 (right justified) con- 
tains the initiate I/O TRIGGER 
value. Bits 59-30 (right 
justified) contains the buffer 
length - TRIGGER value. The 
TRIGGER value is used by SIO$ to 
determine the point at which to 
initiate another I/O call. The 
TRIGGER value is the maximum of 
(1 PRU, "TRIGGER" percent of 
buffer size) "TRIGGER" is an 
assembly parameter in SI0$ with 
initial definition of: 

TRIGGER MICRO 1,0, /25/ 
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C. Description of Routine SIO$ 

1.0 General Information 

The function of this routine is to perform various 
I/O operations for the other FORTRAN object time 
routines. It contains a collection of I/O functions 
that are used by the FORTRAN object I/O library. 
It was written to provide: 

a) centralized I/O communications with the 
operating system 

b) centralized responsibility for the management 
of buffers 

c) a centralized location for file positioning 

1.1 Approzimate length: 1100B 

2.0 Entry Points 

2.1 DAT. - character string buffer - a data entry 

DAT. is a 150 word character string buffer used 
by the routines which do coded I/O. It holds 
one, right-justified character per word. 

2.2 INITL. - this routine accomplishes file related 
initialization for FORTRAN input/output routines. 

2.2.1 Calling Sequence and Returns 

RJ INITL. with the following registers set: 

B2 - address of the first word of 
the file environment table 
for the file to be referenced 

or 
the complement of the address 
of the word containing the 
logical unit designation for „^ 
the file to be referenced. (3 

X6 - open parameter to be used 
if the file must be opened. 
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X7 



nominal CIO request (i.e. 
READ or WRITE with the 
correct mode included) . 



O 



Upon exit, file related initialization for FORTRAN 
I/O routines will have been accomplished if B2 and 
B6 are positive.. The file will be correctly 
positioned, the control word SIO.CTL will be 
correctly set up for the read/write request, and 
the file will be opened, if necessary. Error 
conditions are as follows: 

B2 < -- FET not found 

B6 = -1 uncleared EOF 

B6 = -2 read request follows write on file 

2.3 SIO. 

2.3.1 Calling Sequence and Returns 

This is the entry point for read/write processing. 
It is entered by doing an RJ to SIP. with XI set 
to the address of the first word of the FET 
associated with the file, SIO.CTL control word with 
bit 2 =0 for a read request and =1 for a write re- 
quest, and B registers set according to the follow- 
ing criteria: 

B7 =0 This is a formatted I/O request 

For a formatted read request, the 
150 character DAT. buffer will be 
utilized, with blank fill, replac- 
ing any zero bytes with blanks. 

For a formatted write request Bl 
contains the number of characters 
to be written from the DAT. buffer, 
starting at DAT., through DAT. + 
Bl-1. Characters are expected in Rl 
format; i.e. right -adjusted, one 
character per word, with zero fill. 
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B7 ^0 This is an unformatted I/O request 

B1=0 INPUTB/OUTPUTB initialization 
Bl > unformatted read/write request, 

Bl contains the number of words 

to be transferred 
Bl< INPUTB/OUTPUTB termination 

Upon exit data will have been transferred between 
the area defined and the buffer; operating system 
calls will have been made as required, and IN and 
OUT will have been updated. Also X4 will have 
been set as follows : 



X4 = EOR (end of SCOPE - logical 
X4 > EOF (end of file) 
XA< else 



record) 



2.4 SIO.END - Write an end-of-file indication on a file 

2.4.1 Calling Sequence and Returns 

This routine is entered by executing an Ro si 
SIO.END with XI set to the address of the first 
word of the FET of the file to be accessed. Any 
remaining data in the buffer is written to the 
file and then an end-of-file indication is 
appended to the file. 

2.5 OPEN. - opens files 

2.5.1 Calling Sequence and Returns 

This routine is entered by doing an RJ to OPEN. 
with XI set to the address of the first word of 
the FET of the associated file and X2 set to the 
function code for the desired call to open the 
file. 

Upon exit, the file will have been opened in the 
manner determined by the function code. 

2.6 FIZBAK. - positions file when backspacing 



} 
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2.6.1 Calling Sequence and Returns 

This area is entered by doing an RJ to FIZBAK. 
with XI set to the address of the first word of 
the FET associated with the file. This routine 
is used when a backspace or a write after a 
read is to be performed. It backspaces the 
file to the current PRU, reads the PRU into the 
buffer starting at FIRST, leaves OUT pointing 
to the logically next coded record and IN point- 
ing to the last word +1 of the PRU, and leaves 
the file positioned physically following the 
PRU. All operations are done with recall so 
they will be done on return. Upon exit B6 will 
have been set to one if the current FRU is an 
end-of-file, otherwise B6 will have been set to 
zero. 



O 



2.7 POSFIL. - positions file to before PRU 
2.7.1 Calling Sequence and Returns 

This area is entered by doing a n RJ to POSFIL. 
with XI set to the first word of the FET 
associated with the file. POSFIL. repositions 
the file like FIZBAK., except upon exit the 
file is positioned physically before the cur- 
rent PRU, and IN and OUT a re interchanged. 

2.8 BKSPRU. - backspaces one PRU 

2.8.1 Calling Sequence and Returns 

This area is entered by doing an RJ to BKSPRU. 
with XI set to the address of the first word of 
the FET associated with the file. Upon exit 
the file will have been backspaced one PRU (and 
recall will have been used) . 

2.9 RDPRU. - reads one PRU 
2.9.1 Calling Sequence and Returns 

RJ RDPRU. with the following registers set: 

XI - address of the first word of FET 
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This routine will read the next PHYSICAL RECORD UNIT 
on the file specified by the contents of register 
The read is accomplished by setting the buffer empty 
and with room only for one PRU (determined by the PRU 
size placed in the FET in word FET.LIM). 

The following registers are destroyed: 

B6, 

XO, X2, X3, X4, X5, X6, X7 

A2, A3, A5, and A6 

2.10 FIZBA. - reposition file after current PRU. 

2.10.1 Calling Sequence and Returns 

(B5) = 1 

(B7) = additional number of words to backspace 

RJ FIZBA 

(XI) FET address 

Return 

(B7) = if current PRU is not EOF 
(B7) f if current PRU is EOF 

Function: reposition file and backspace the number of 
words specified in B7. 

If B7 = upon entry, this routine is identical to 
FIZBAK. except that the file must be recorded as one 
scope logical record. 

2.11 P03FI. 

2.11.1 Calling Sequence and Returns 

B5 = 1 (XI) = FET address 
RJ POSFI. 

Return 

B7 = current PRU is not EOF 

B7 + current PRU is EOF Q 

Function: identical to POSFIL. 
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2.12 CIOl. - this is the CIO communication routine. 

2.12.1 Calling Sequence and Returns 

Jump to CIOl. with the following registers set: 

XI - address of first word of FET 
X2 - CIO function (referred to as F) 
B6 - return address after calling CIO 

If F is zero then the routine RCL will be called. 
In this case if F is negative (i.e. F =-0), then 
an atuomatic recall on the address in register XI 
will be issued. 

When F is non-zero and positive, a normal CIO call 
will be issued and control will be returned to the 
user as soon as the call has been placed. If F is 

O non-zero and negative then an automatic recall call 

of CIO will be placed and control will be returned to 
the caller when the function (the complement of F) 
has been completed. 

Registers destroyed: X5, X6, X7 

X5, A6, A7 

2.13 RCL1.- This is a central processor recall routine. 
2.13.1 Calling Sequence and Returns 

Jump to RCL1. with the following registers set: 

XI - (necessary only if X2 is negative) 

address for which to issue an 

automatic recall 
X2 - recall type indicator (if positive 

then normal recall, else automatic 

recall) 
B6 - address to return control to after 

the recall has been satisfied. 

Registers destroyed: X5, X6 

X5, A6 

2.14 MVWDS. - this is a general move-words routine 
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Calling Sequence and Returns 

RJ MVWDS. with the following registers set: 

B2 - count of words to be moved 
B5 - 1 

B7 - destination address for block 
X2 - origin address of block 

Return will be made after the block of COUNT words 
has been moved. Upon exit the following registers 
will be defined; 

A5 - address of last location loaded 

from 
A7 - address of last location stored 

into . 
X6 - contents of register A3 

Registers destroyed: B4 

A4, A5, A6, A7 
A4, X5, X6, X7 

ADVIN. - advance IN pointer 

Calling Sequence and Returns 

This routine is entered by doing an RJ to ADVIN. 
with XI set to the address of the first word of 
the FET of the associated file. ADVIN. advances 
IN by 1. Registers destroyed are: A2, A5, A6, 
X2, X5, X6, Bl and B2. 

SIO.CTL - SIO. control word 

This is a data entry whose format is set up by INITL. 

The input/output control word SIO.CTL is set up: 

a. If the file does not reside on a one-half 
inch magnetic tape then SIO.CTL is - 

VFD 6/0, 36/0, 18/CIO. CODE 

b. If the file does reside on one-half inch 
magnetic tape then SIO.CTL is - 

VFD 6/DEVICE, 36/0, L8/CIO. CODE 



O 
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Where DEVICE is taken from bits 48~ 53 of word 
2 of the file environment table. The value of 
DEVICE carries the following information: 

DEVICE = SSLLDD (Base 2) 



STYLE SS = 



LABELS LL = 



DENSITY DD = 



00 
01 
10 
11 
00 
01 
10 
11 
00 
01 
10 
11 



Scope Internal Tape 

X-tape 

X-tape 

L-tape 

No Labels 

Scope standard labels 

Scope option label 

(reserved) 

HI (556) 

LO (200) 

HY (800) 

(reserved) 



If and only if the file resides on an S- or L-tape 
the CIO. CODE will be the READN or WRITEN commands 
rather than, the nominal READ or WRITE commands . 

Dijfcgnostics 

Fj£al to Execution 

BUFFER SIZE TOO SMALL ON XXXXXXX RECOMPILE WITH 
BUFFER SIZE GE PRU SIZE will be printed from OPEN, 
if the file's buffer is less than one PRU in size. 

External Routines 

GETBA 

Calling Sequence and Returns 

Entry B2 = complement of address of either the 
file name or logical tape number 

Exit B2 = FET address 
X3 = file name 

Structure 

Local Routines 
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5.1.1 RDSPACE - wait for sufficient read space 

Calling procedure - 

RJ RDSPACE with the following registers set: 

B5 - 1 

XI - address of first word of FET 

Return will be made when there is at least one word 
in the buffer, or if an end condition is encountered. 
If FILE, upon a non- end- condition exit the following 
information is available: 

X0 - first 
X3 - limit 
X4 - in 
X5 - out 

X6 - number of contiguous words available 
X7 - space (total number of words read into 
the buffer) 

Upon an end-condition exit the following information 
is pertinent: 



X7 
X2 







(this will serve as a signal of an 
end condition) 



5.1.2 



(end-of-file encountered) 

1 (end-of-scope-logical-record encountered) 

Registers destroyed: X0, X2, X3, X4, X5, X6, X7 

A2, A3, A4, A5, A6, and A? 
B6 

WRSPACE - wait for sufficient write space 
Calling procedure - 

RJ WRISPACE with the following registers set: 

B4 - size 

B5 - 1 

XI - address of first word of FET 

Return will be made wfren available space in the 
buffer exceeds the value SIZE. If necessary CIO 
will be called to write out a partion of the buffer. 
Upon exit the following information is available: 
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XO - first 

X3 - limit 

X4 - in 

X5 - out 

X6 - number of contiguous words available 

X7 - space (total number of unfilled words in the 
buffer) 

Registers destroyed: XO, X2, X3, X4, X5, X6, X7 

A2, A3, A4, A5, A6, and A7 
B6 

Note: Filling SPACE words would cause the buffer to 
appear to be empty since there must be at 
least one empty word at all times in a buffer 
if there is any data in the buffer which has 
not been transmitted. 

_ 5.1.3 GETLIM - find out read space available 

o 

Calling procedure - 

RJ GETLIM with the following registers set: 

B5 - 1 

XI = address of first word of FET 

Return will be made with information as follows: 

X4 = FIRST 

X3 = IN 

X2 = OUT 

X5 = LIMIT 

B2 = number of contiguous words available 

X7 = total space available 

5.1.4 CHKPAR = check parity on last read 

Calling procedure - 

RJ CHKPAR with the following registers set: 

B5 = 1 

XI = address of first word of FET 

X3 = status word 
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Return will be made with information as follows: 

X2 = CIO command for next read 

Parity bit on in FET word for parity indication 

(FET.PARI)- 

5.2 (INITL.) 

Upon normal return INITL. will have accomplished 
the following: 

1. If register B2 does not contain the address of 
the first word of the file environment table 
then GETBA will be called. If the file cannot 
be found then an error return will be made 

( see below) . 

2. If this is the first access on the file 
specified then OPEN, will be called to open 
the file (using the parameter supplied by 
the caller.) 

3. The input/output control word SIO.CTL is set up: 

a. If the file does not reside on a one-half 
inch magnetic tape then SIO.CTL is - 

VFD 6/0, 36/0, 18/CIO. CODE 

b. If the file does reside on one-half inch 
magnetic tape then SIO.CTL is - 

VFD 6/DEVICE, 36/0, 18/CIO. CODE 

Where DEVICE is taken from bits 48-53 of 
word 2 of the file environment table, the 
value of DEVICE carries the following 
information: 

DEVICE = SSLLDD (Base 2) 

STYLE SS = 00 SCOPE internal table 

01 X-tape 

10 S-tape 

11 L-tape /~| 
LABELS LL - 00 No Lables ^ 

01 SCOPE standard labels 

10 SCOPE option label 

11 (reserved) 
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DENSITY DD = 00 HI (556) 

01 LO (200) 

10 HY (800) 

11 (reserved) 

If and only if the file resides on an S- or L- 
tape the CIO. COPE will be the READN or WRITEN 
commands rather than the nominal READ or 
WRITE commands. 

4. If the present operation is a write then 

POSFIL. will be called to position the file 
if the last operation was a read or a back- 
space. In either case the end-of-file flag 
will set to the off state. 

5.3 (SIO.) - The SIO.CTL word is examined to deter- 
mine if the request is a read or a 
write request. B7 is then examined to 
determine if the request was for for- 
matted or unformatted I/O. 

5.3.1 Formatted read request. The maximum number of 
words in a formatted input record is set. If 
the file to be referenced resides on S- or L-style 
magnetic tape, a call to RDSPACE is made to wait 
until there is some information in the buffer, or 
until an empty buffer with EOR or EOF status is 
found. The minimum of max input words and the 
number of words in the tape block are moved to an 
area beginning at BURSTFWA. The OUT pointer is 
updated to reflect the removal of the tape block 
from the buffer. Also, any unused bits in the 
last word moved are masked out. (If the record 
wraps around the circular buffer, the move is 
done in two segments.) The record is then re- 
formatted into one -character -per -word form, right 
justified with zero fill. 

If the file to be referenced does not reside on 
S- or L-style magnetic tape, the request is con- 
sidered as a formatted read from an internal file. 
The requested words will be transferred to an 
areas beginning at BURSTFWA. A call to RDSPACE is 
made to wait until there is at least one word in 
the buffer, or an end condition (EOR or EOF) occurs, 
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The value of LIMIT is saved, and the first word 
is fetched from the buffer. The number of 
contiguous words which may be moved from the 
buffer to satisfy the request is determined. 
The data is transferred from the buffer to the 
designated area until either the number of 
words requested is reached or a line terminator 
is" encountered. Transfer of words continues un- 
til all words in the buffer are transferred. 
The OUT pointer is updated. 

The record is then burst into one character- 
per-word format. 

5.3.2 Unformatted read request 

If the file to be referenced resides on S- or 

L-style magnetic tape, the control word is 

examined to determine record size, and from that, 

whether or not an end of record has been encoun- (f\ 

tered. Fall records are moved in contiguous '*- J * 

sections -only; the last record of a move requir- " 

ing special casing, since the number of words 

and unused bit count will differ in the control 

word. Control is returned through SIO. 

If the file to be referenced does not reside on 
S- or L-style magnetic tape, information is 
transferred in groups of two PRU at a time, the 
last request being a short request, IN, OUT, 
and FIRST are all appropriately updated, and if 
the buffer is full, control is transferred to 
entry CI01 . 

5.3.3 Formatted write request 

Information to be written is presumed to re- 
side in the DAT. buffer one character per word, 
right justified with zero fill. The number of 
characters to be packed is in Bl. The output 
line is first packed 10 characters per word. 
The beginning address of the packed line and 
its length are computed. 

If the file to be referenced resides on S- or 
L-style magnetic tape, the control word for the 
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line is formed and inserted in front of the 
packed line. The beginning address of the 
packed line is moved back one word, and the 
number of words to be transferred to the file 
buffer is incremented by one. A call to WRSPACE 
is made to wait until there is room enough in 
the buffer to append this line. The count of 
words to be moved by MVWDS is set to the smaller 
of the number of words which comprise the line 
and the number of contiguous words available. 
Also the total amount of space available is re- 
duced by the number of words in the line. If 
all the words in the line were not moved, then 
MVWDS. is called again to move the remaining 
words into the buffer. IN is updaced along 
with TRIGGER information and exit procedures 
performed. 

If the file to be referenced does not reside 
on S- or L-style magnetic tape, it is consider- 
ed to be a formatted write on an internal (or 
X-tape) file. Formatted writes are limited to 
14 word records (136 characters + 4 bytes of 
binary zeros.) As many words as possible are 
moved into the contiguously available space in 
the buffer; the IN pointer is up-dated and when 
there are no more words to move, exit proced- 
ures are performed. 

5.3.4 Unformatted write request 

Initialization and termination procedures are 
performed where necessary. If the file re» 
sides on S or L-style magnetic tape, unfin- 
ished 512 word blocks are filled out, the con- 
trol word for each block is formed, and an RJ 
to WRSPACE is made to wait until there is 
space in the buffer to append the fill -words. 
Also, the number of words which remain to be 
transferred to the buffer is decremented. 
When there is enough space, the words are 
moved to the buffer. If the block is not full, 
control is returned to the caller. If the move 
completely fills the block, IN is updated and 
the new IN address is zeroed out, in preparation 
for the next block's control word. The above 
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processing is repeated until all words are 
transferred, and exit procedures are then 
performed. 

If the file does not reside on S- or L-style 
magnetic tape, it is considered to be an un- 
formatted write on an internal (or X-tape) 
file. An RJ is made to WRSPACE to wait until 
there is space for more than one word in the 
buffer. As many words as possible are moved 
into the contiguously available space in the 
buffer. The IN pointer is up-dated, and, if 
there are no more words to store, exit pro- 
cedures are performed. 

5.4 (SIO.END) This routine writes an end- of- file 
indication on a file. If there is any activity 
currently in progress on the file, SIO.END 
waits for it to cease. 

If the file is unformatted and resides on an 
S- or L-style magnetic tape, CI01. flushes out 
what remains in the buffer. A control word is 
inserted along with a data word to simulate a 
Scope internal EOF. The IN and OUT pointers 
are updated and a ivrite nonstop command is 
set up. 

If the file does not reside on an S- or L-style 
magnetic tape, or the file is being used for 
Buffered I/O, a standard write command is set 
up. CI01. is called, and control is returned 
to the caller through the entry point. 

5.5 (OPEN.) This routine will open the specified 
file using the supplied open parameter. Using 
the assembly parameter TRIGGER an input/output 
trigger value will be set up in the file en- 
vironment table (in word FET.TRIG). If the 
buffer is too small to accept a single physical 
record unit of the device on which the file 
resides then the job will be aborted and an 
error message issued to the dayfile. 

Return will be made to the caller after the 
open activity has been accomplished. 
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Registers destroyed: XO, X2, X3, X4, X5, X6, X7 

A2, A3, A4, A5, A6, and A7 

5.6 (FIZBAK.) This area is called when a backspace or 
a write after a read is to be performed. It back- 
spaces the file to the current 8SU, reads the PRU 
into the buffer starting at FIRST, leaves OUT 
pointing to the logically next coded record and 

IN pointing to the last word + 1 of the PRU, and 
leaves the file positioned physically following 
the PRU. Unless the PRU was an end-of-file, then 
it leaves the file positioned physically after 
the end-of-file. All operations are done with 
automatic recall so they will be completed on 
return. 

5.7 (POSFIL.) This areas uses FIZBAK. to reposition 
the file. Then the IN and OUT pointers are re- 
versed to account for a call to BKSPRU. which 
follows. The buffer status is set to a write 
completed and a return Ifl made to the calling 
routine. • 

5.8 (BKSPRU.) This area backspaces one PRU. The 
buffer status is obtained by a call to CKSTAT.. 
If the buffer is busy, an address to return to, 
BKA, is set up and a call is made to CIOL. to go 
into automatic recall. 

5.9 (RDPRU.) A call is made to CKSTAT. to obtain 
the buffer status. If the buffer is busy, an 
address to return to, RJ)A, is set up and a call 
is made to CI01. to go into automatic recall. 

5.10 XFIZBA.) This routine is called when a backspace 
or a write after a read is to be performed on a 
blocked binary file. It backspaces to the cur- 
rent PRU (or "n" words back from the current 
PRU), rereads the PRU in question starting at 
FIRST, leaves OUT pointing to the last worn 1 
backspaced over and IN pointing to the last 

word + 1 of the PRU. If the previous record 
was an end-of-file then the file will be 
positioned physically after the end-of-file. 
Upon return the positioning operation will 
have been completed. 
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(POSFI.) This routine uses FIZBA. to 
reposition the file for a write after 
a read. The file is repositioned, the 
IN and OUT pointers are reversed and 
the file physically positioned before 
the PRU in the buffer. 
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D. Detailed Documentation of I/O Routines 

Dl. BACKSP 

1.0 General Information 

The function of this routine is to backspace 
one user logical record on unit i in response 
to the FORTRAN statement BACKSPACE i. 

1.1 Approximate Length: 16 OB 

2.0 Entry Points 

2.1 BACKSP 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing an RJ to BACKSP 
with registers set as follows: 

X6 = (1) the FET address or (2) the 
j^ complement of the address of 

\j either the file name or tape 

number 

Upon exit the tape will have been backspaced one 
user logical record. 

3.0 Diagnostic 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error number 
53, will be given if no file was found for the 
tape unit. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an RJ to 
ABNORML 

4.2 INITL. , 

4.2.1 Calling Sequence and Returns 

An RJ to INITL is made with the following 
registers set: 
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Entry B2 «* address of first word of FET of 
the file, or the complement of 
either the file name or logical 
tape number. 

X6 = open parameter 

X7 = read/write parameter 

Exit B2 = address of first word of FET of 

the file, or unchanged if file 

not found. 
X5 = code and status 
X6 - CIO control word 
X5 = 1 
X6 = -1 if an uncleared EOF on a read 

request 
B6 = -2 if an attempted read after 

write 

4.3 CI01 

4.3.1 Calling Sequence and Returns 

Entry B6 ■ return address v# 

XI =? address of first word of FET 
X2 = function code for CIO 

4.4 GETBA 

4.4.1 Calling Sequence and Returns 

Entry B2 - complement of address of either 
file name or logical tape 
number 

Exit B2 ■ FET address 
X3 = file name 

4.5 ADVIN 

4.5.1 Calling Sequence and Returns 

An RJ to ADVIN is made with 

XI - address of first word of FET of 
the file 
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Entry XI * address of the first word of FET 

4.8 FIZBA 
4.8.1 Calling Sequence and Returns 

Entry B5 - 1 

B7 = additional number of words 

to backspace 
XI = address of first word of FET 

Exit B7 = if current PRU is not EOF 
B7 ± if current PRU is EOF 

4.9 S10.END - flushes a buffer 

This routine is entered by executing an RJ to 
SIO.END with XI set to the address of the 
firstNword of the FET of the file to be 
accessed. Any remaining data in the buffer is 
written to the file and then an end-of-file 
indication is appended to the file. 

4.10 SYSTEM 

4.10.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message 
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2.0 
2.1 



General Information 



MACHINE SERIES- 64/65/6600 



This routine is called in response to a FORTRAN 
BUFFER IN statement. It issues a call to CI01 
to transfer information from the unit specified 
in the BUFFER IN statement to (1) the user array 
for S and L tapes or (2) the program buffer for 
the file for X and I tapes. Each FORTRAN BUFFER 
IN statement produces three calls to BUFFEI. 

Length - 113B 

Entry Points 

BUFFEI 



2.1.1 Calling Sequence and Returns 

The routine is entered by doing an RJ to BUFFEI. 
It is entered three times in order to pass para- 
meters. The register conditions for the entries 
should be: 

Entry 1 

B2 contains (1) the address of the FET 
associated with the file or (2) the 
complement of the address of the 
logical file name or tape number. 
Bl contains the mode indicator 
Zero - even parity (coded) 
Non-zero - odd parity (binary) 

Entry 2 

B7 contains the first word address (FWA) 
of the area to which the data is to be 
transferred. 

Entry 3 

B7 contains the last word address (LWA) 
of the area to which the data is to be 
transferred. 

Upon exit from entry 3, the request for transfer 
of the data will have been issued, there is no 
guarantee that the transfer has actually taken 
place. 
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3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 54, will be given if no file was 
found for a tape unit. 

3.1.2 "*Buf In * Endfile XXXXXXX," error number 54 
will be given if an attempt is made to read 
past an uncleared EOF. 

3.1.3 "*Buf In * Last Op Write," error number 56, 
will be given if the first word address of 
the storage area is greater than or equal 
to the last word address. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an RJ to 
ABNORML. 

4.2 INITL 

4.2.1 Calling Sequence and Returns 

An RJ to INITL. is made with the following 
registers set: 

Entry B2 = address of first word of FET 
of the file, or the comple- 
ment of either the file name 
or logical tape number. 
X6 = open parameter 
X7 = read/write parameter 

Exit = B2 = address of first word of FET 
of the file, or unchanged if 
file not found. 
X5 = code and status 
X6 = CIO control word 
B5 = 1 

B6 = -1 if an uncleared EOF on a 
read request 
A B6 = -2 if an attempted read after 

^^ write 
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CIOl 



4.3.1 Calling Sequence and Returns 
Entry 



B6 = return address 

XI = address of first word of FET 

X2 = function code for CIO 



RCL1 



4.4.1 Calling Sequence and Returns 
Entry 



B6 = return address 

X2 = recall type indicator (if 

positive, then normal recall, 
else automatic recall.) 

XI = (necessary only if X2 is 

negative) address for which 
to issue an automatic recall. 



4.5 SYSTEM 

4.5.1 Calling Sequence and Returns 
Entry 



XI = error number 

X2 = address of diagnostic message 



Structure 



No registers are saved. 

If this is the last entry, a branch is taken 
to LAST. If this is the first entry, a branch 
is taken to FIRST. Otherwise, the block start 
location is saved. The flag for the third 
entry is set up and a branch is taken to exit. 

(FIRST) The I/O mode and file indicator are 
saved. The flag for the second entry is set 
up and the trace-back information is stored in 
NAME +1. A branch is taken to exit. 

(LAST) The flag for a subsequent first entry 
is set up. 

INITL. is called to initialize the file. If 
the file has not been found, an error exit is 
taken. If there has been an attempt to read 
past an EOF, one error exit is taken. Otherwise 
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buffering of input takes place. Processing 
for I or X tapes differs from processing 
for S- or L-style tapes since a control 
word is involved for S- or L-style tapes. 
A read code is set, a return point of 
BUFFEI is set in B6, and control is given 
to CI01. 
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D3. BUFFEO 

1.0 General information 

This routine is called in response to a FORTRAN 
BUFFER OUT statement. It issues a call to CI01. 
to initiate a transfer of data directly from 
the user array to the external unit specified 
in the BUFFER OUT statement. For each FORTRAN 
BUFFER OUT statement BUFFEO 'is entered three 
times. 

1.1 Approximate length - 100B 

2.0 Entrv Points 

2.1 BUFFEO 

2.1.1 Calling Sequence and Returns 

This routine is entered by doing an RJ to BUFFEO. 
It is entered three times in order to pass para- ^^ 

meters. The register conditions for the entries ^ 

should be: 



Entry 1 



B2 contains (1) the address of the FET 
associated with the file or (2) the com- 
plement of the address 
Bl contains the mode indicator 
Zero - even parity (coded) 
Non-zero - odd parity (binary) 



Entry 2 



B7 contains the first word address (FWA) 
of the data to be transferred. 

Entry 3 

B7 contains the last word address (LWA) 
of the data to be transferred. 

Upon exit from entry 3, the request for transfer 

of the data will have been issued. There is no 

guarantee that the transfer has actually taken 

place. ^-w 

3.0 Diagnostics 
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3.1.1 "Unassigned medium, file XXXXXXX," error 
number 58, will be given if no file was 
found for the tape unit . 

3.1.2 "*Buf Out * FWA .GT. LWA," error number 59, 
will be given if the first word address of 
the storage area is greater than or equal 
to the last word address. 

3.1.3 "Buff OUT," array too large, error number 114, 
will be given if the array given is larger 
than 14 words for a coded write. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an RJ 
to ABNORML. 

4.2 INITL 

4.2.1 Calling Sequence and Returns 

An RJ to INITL. is made with the following 
registers set: 

Entry B2 = address of first word of FET 

of the file, or the complement 
of either the file name or 
logical tape number. 
X6 * open parameter 
X7 = read/write parameter 

Exit B2 = address of first word of FET 

of the file, or unchanged if 

file not found. 
X5 = code and status 
X6 = CIO control word 
B5 - 1 
B6 = -1 if an uncleared EOF on a 

read request 
B6 •« -2 if an attempted read after 

write 

4.3 CI01 
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4.3.1 Calling Sequence and Returns 

Entry B6 - return address 
XI = FET address 
X2 = function code for CIO 

4.4 RCLl 

4.4.1 Calling Sequence and Returns 

lmtrv B6 - return address^ 

^ X2 -■ recall type indicator (if 
positive, then normal re- 
call, else automatic recall.) 
XI - (necessary only if X2 is 

negative) address for which to 
issue an automatic recall. 

4.5 SYSTEM 

4.5.1 Calling Sequence and Returns 

Entrv XI = error number 

X2 = address of diagnostic message ■ 

5.0 Structure 

5.1 No registers "are saved. 

5*2 If this is the last entry, a branch is taken to 
LAST If this is the first entry a branch is 
£aken to FIRST. Otherwise, the block start 
location is saved. The flag for the third 
entryis set up and a branch is taken to exit. 

* •* YFTRST) The I/O mode and file indicator are 

5 * iaved The flag for the second entry is set up 

and the trace-back information is stored in 

NAME +1. A branch is taken to exit. 

5.4 (LAST) The flag for a subsequent first entry is 
set up. 

5 5 INITL is called to initialize the file. If the 
file has not been found, an error exit is taken. 
Otherwise buffering of output takes place. Pro- 
cessing for I or X tapes differs from Process- 
ing S- or L-style tapes since, for the latter, 
a Control word" is involved. A write code is 
set, a return point of BUFFEO is set in B6, 
and' control is given to CI01. 

o 
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D4. ENDFIL 

1.0 General Information 

The function of this routine is to write an 
end-of-file on magnetic tape unit i in 
response to the FORTRAN statement ENDFILE i. 

1.1 Length: 41g 

2.0 Entry Points 

2 . 1 ENDFIL 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing an RJ to 
ENDFIL. X6 should contain the complement 
of the address of either the file name or the 
logical tape number associated with the tape 
unit; or X6 should contain the address of the 
first word of the FET associated with the 
file. Upon exit, an end-of-file will have 
been written on the tape. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 

number 60, will be given if no file was found 
for the tape unit. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an RJ 
to ABNORML. 

4.2 GETBA 

4.2.1 Calling Sequence and Returns 

Entry B2 * complement of address of either 
file name or logical tape number 

Exit B2 = FET address 
X3 - file name 
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4.3.1 Calling Sequence and Returns 

An RJ to INITL. is made with the following 
registers set: 

Entry B2 = address of first word of FET 
of file or the complement of 
either the file name or logical 
tape number. 
X6 = open parameter 
X7 = read/write parameter 

Exit B2 = address of first word of FET 
of the file, or unchanged if 
file not found. 

X5 = code and status 

X6 - CIO control word 

B5 - 1 

B6 = -1 if an uncleared EOF on a 
read request 

4.4 ADVIN 

4.4.1 Calling Sequence and Returns 

This routine is entered by doing an RJ to 
ADVIN. with: XI = address of first word of 
FET of the file FET of the file. 

4.5 POSFI 

4.5.1 Calling Sequence and Returns 
Entry 






B5 
RJ 



1 (XI) = FET address 
POSFI . 



Exit 



B7 = current PRU is not EOF 
B7 ^ current PRU is EOF 



4.6 SIO.END 

4.6.1 Calling Sequence and Returns 

This routine is entered by executing an RJ to 
SIO.END with XI set to the address of the first 
word of the FET of the file to be accessed. 
Any remaining data in the buffer is written to 
the file and then an end- of- file indication is 
appended to the file. 
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4.7.1 Calling Sequence and Returns 
Entry 



5.0 

5.1 



XI = error number 
X2 - address of diagnostic 
message 



Structure 



The contents of registers B2 and B6 are 
saved. If necessary, GETBA is called to 
obtain the address of the FET. If the 
file cannot be referenced, an error exit 
is taken. If the file is blocked, binary 
file positioning is as follows: If the 
last operation was a read, POSFI is called 
to position the file as necessary. ADVIN. 
is called if it is necessary to advance 
the IN pointer. If the file is a buffered 
file, no positioning is done. In all 
other cases, INITL. is called to position 
the file. When the file has been positioned, 
the record count is incremented and SIO.END 
is called to "write an end of file. The 
saved B registers are then restored^, and 
control is returned to the caller via the 
entry point. 
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General Information 

The function of this routine is to search the 
list of file names to find the address of the 
first word of the FET of the associated file. 
GETBA is called by various I/O routines 
when the logical file is a variable. 

Approximate length: 2 OB 

Entry Points 

GETBA 



2.1.1 Calling Sequence and Returns 

The routine is called by an RJ to GETBA. B2 
should contain the complemented address of 
the word containing a file name or a logical 
unit number. Upon exit, B2 will still con- 
tain the negative address if the file is not 
found. If the file is found, B2 will con- 
tain the address of the first word of the 
FET of the associated file. 

3.0 Diagnostics Produced: None 

4.0 External Routines: None 

5 . Structure 

5.1 The specified location is examined. If it 
contains a logical unit number, (N) or 
(NN), the number is converted to "TAPEN" 
or "TAPENN". If the location does not 
contain a number, the upper 42 bits are 
extracted and used as a file name. 

5.2 (SEARCH) The low core locations starting at 

RA +2 are examined to find a match for the file 
name. If it is not found before the file list 
is exhausted, GETBA exits with B2 unmodified 
(still negative). 

5.3 (HIT) If the file name is found, B2 is set to 
the address of the first word of the FET of 
the associated file, and the routine exits. 
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D6. IFENDF 

1.0 General Information 

The function of this routine is to check the 
previous read operation to determine if an 
ehd-of-file has been encountered on unit i 
where i is a non-buffered unit. 

1.1 Length: 41 B 

2.0 Entry Points 

2 . 1 IFENDF 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing an RJ to 
IFENDF. X6 should contain the complement of 
the address of either the file name or the 
logical tape number associated with the tape 
unit; or X6 should contain the address of the 
first word of the FET associated with the 
file. Upon exit X6=l if an end-of-file was 
encountered by the previous read operation, 
otherwise X6=0. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 61, will be given if no file was 
found for the tape unit . 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Return 

An RJ to SYSTEM must be made prior to an RJ 
to ABNORML 

4.2 GETBA 

4.2.1 Calling Sequence and Returns 

Entry B2 - compement of address of either 

file name or logical tape number 
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4.3 



5.0 
5.1 



Exit 



SYSTEM 



B2 - FET address 
B3 = file name 



4.3.1 Calling Sequence and Returns 
Entry 



XI - error number 
X2 = address of diagnostic 
message 



Structure 



Register B2 is saved. If necessary, GETBA 
is called to obtain the FET address. If 
the file cannot be referenced, an error 
exit is taken. If the end-of-file flag 
is not set in the FET, B2 is restored and 
the routine exits. If the end-of-file flag 
is set, it is cleared; and if the file is 
a BUFFER file, B2 is restored and the 
routine exits. If the file is a binary 
file and resides on an S or L tape, the 
end-of- record is incremented ov^r. On all 
S or L tape files, the end-of-file bit is 
cleared from word 1 of the FET. If the 
file does not reside on an S or L tape 
and is not blocked binary, the end-of-record 
and end-of-file bits are cleared from word 1 
of the FET. B2 is then restored and the 
routine exits. 
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D7. INPUTB 

1.0 General Information 

The function of INPUTB is to transfer one 
logical record of binary information from 
a file unit to storage locations, as 
specified by FORTRAN READ statements: 

READ(i)L 
READ TAPE i,L 

If L is omitted, the routine skips over 
one logical record. 

1.1 Approximate Length: 254B 

2.0 Entry Points 

2 . 1 INPUTB 

2.1.1 Calling Sequence and Returns 

There are three entries to this routine. 
A first entry to initialize input, one 
intermediate entry for each array or data 
item, and a final entry to signal the end 
of the list and terminate input. 

First Entxy: B2 = FET address or comple- 
mented address of 
variable tape number. 
RJ INPUTB1. 

Intermediate Entries: Bl = Address of data 

item or begin- 
ning address of 
array 

B2 = number of words 

RJ INPUTB. 

Final Entry: Bl = 1 

RJ INPUTB . 

Upon exit, one logical record will have been 
read from the file unit specified. 

3.0 Diagnostics 
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3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 62, will be given if no file was 
found for the tape unit. 

3.1.2 "Read-Write sequence error XXXXXXX," 
error number 90, will be given if the 
previous operation on the file was a 
write. 

3.1.3 "Bin Input *Endfile *XXXXXXX," error 
number 63, will be given if an attempt is 
made to read past an uncleared EOF. 

3.1.4 "List Exceed Data on File XXXXXXX," error 
number 89, will be given if the number of 
list items exceeds the number of items 

on the record. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM just be made prior to an 
RJ to ABNORML 

4.2 CI01 

4.2.1 Calling Sequence and Returns 

Entry B6 = return address 
XI = FET address 
X2 = function code for CIO 

4.3 GETBA 

4.3.1 Calling Sequence and Retmrns 

Entry B2 = FET address 
X3 = file name 

4.4 OPEN 

4.4.1 Calling Sequence and Returns 

Entry XI - FET address f\ 

X2 ■ OPEN parameter ^ 
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4.5 SIO. 

4.5.1 Calling Sequence and Returns 

Entry Bl = number of words to be moved 
B7 = address of data item or 

beginning address of array 
XI = FET address 
X6 ~ function code for CIO 

Exit X4 = 1 if EOF was encountered 
= if EOR was encountered 
during the move operation 
= <0 if the requisite number 
words were moved 

4.6 SYSTEM 

4.6.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message 

4.7 INITL 

4.7.1 Calling Sequence and Returns 

An RJ to INITL is made with the following 
registers set: 

Entry B2 = address of first word of FET 

of the file, or the complement 
of either the file name or 
logical tape number. 
X6 = open parameter 
X7 - read/write parameter 

Exit B2 = address of first word of FET 
of the file, or unchaged if 
file not found. 
X5 = code and ststus 
X6 = CIO control word 

B5 = 1 

B6 = -1 is an uncleared EOF on a 

read request 
B6 = -2 if an attempted read after 
write 

5.0 Structure 

5.1 No registers are saved. 
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5.2 



INPUTB is called at least 2 times for any 
binary write. The initial call sets up 
trace back information and calls GETBA to 
obtain the address of the FET. If the file 
cannot be referenced an error exit is taken. 
The FET address is saved. If the file is not 
blocked binary INITL. is called to initial- 
ize the file. If the last operation was a 
read or an end-of-file was read, appropriate 
error terminations are taken. An initiali- 
zation call is then made to SIO. 

As many intermediate calls are made as are 
necessary to transfer the required data. 
Unless an end-of-file is read or the file is 
blocked the parameters with which INPUTB 
was called are passed in a call to SIO. 
The terminal call to INPUTB simply issues 
a terminal call to SIO. unless the file is 
blocked. 



£7 



O 



The first call to INPUTB on a blocked file 
opens the file if it is not yet opened. 
Reading past EOF is checked for, the first 
read is initiated, local calls are initialized 
and GETWDS is called to provide a number of 
sequential words. 

An intermediate call to INPUTB on a blocked 
file calls GETWDS if necessary to provide a 
number of sequential words, sets up a call 
to MVWDS. based upon the contents of the 
control word to transfer the user's logical 
record, and calls GETWDS again if necessary. 

The last call to INPUTB on a blocked file 
skips the unread portion of the user's 
logical it presents and updates the record 
count. 
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1.1 

2 , 
2.1 



General Information 

The function of INPUTC is to transfer for- 
matted input from a file unit to storage 
locations, as specified by a FORTRAN for- 
matted READ statement. INPUTC actually 
functions as a linkage to KRAKER, which 
performs the actual transfer and cracks 
the information for internal storage. Al- 
though KRAKER is a part of the INPUTC deck, 
it functions as a separate entity, and will 
be described separately. 

i 

Approximate length (including KRAKER): 1130B 

Entry Points 

INPUTC 



2.1.1 Calling Sequence and Returns 

There are three calls to INPUTC. The first 
entry to initialize input, one intermediate 
entry for each array or data item, and a 
final entry to signal the end of the list 
and terminate input. 



First entry: B2 = 



B3 = 



address of FET or 

complemented 

address of variable tape;; 

number. 

address of format statement 

or complemented address of 

variable format, statement 

TNPUTC then calls KRAKER, see below, for KRAKER 
parameters. 



ermediate entries: Bl = 



B2 
RJ 



address of data 
item or beginning 
address"' of array 
array. length 
INPUTC 



INPUTC then calls KRAKER, see below, for 
KRAKER parameters. 

Final entry: Bl = -1 

RJ INPUTC 
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INPUTC then calls KRAKER. 

KRAKER linkage description: 

First entry: X3 ■ not decode 

Bl = initial entry 

B2 - FWA of data array 

(here = DAT.) 
B4 = address of return jump 

instruction with which 

to read the next line. 
B6 =■ line count 
B7 ■» maximum number of 

characters per line 
CALL KRAKER 

Intermediate entries: Bl = FWA data 

B2 = number of words 
CALL KRAKER 



Final entry: Bl 

CALL KRAKER 

When INPUTC returns KRAKER the next line, it 
preserves registers: B2, B3, B6 and sets 
B7 = 1. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 64, will be given if no file was found 
for a tape unit. 

3.1.2 "BCD Input * ENDFILE *," error number 65, will 
be given if an attempt is made to read past an 

I? uncleared EOF. 

3.1.3 "BCD Input *Last Op Write *", error number 88, 
will be given if an attempt is made to read 
after a write operation on the file. 

4.0 External Routines 

4. 1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM just be made prior to an RJ 
to ABNORML. 
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4.2 INITL 

4.2.1 Calling Sequence and Returns 

An RJ to INITL. is made with the following 
registers set: 

Entry B2 = address of first word of FET 

of the file, or the complement 
of either the file name or 
logical tape number. 
X6 = open parameter 
X7 = read/write parameter 

Exit B2 = address of first word of FET 

of the file, or unchanged if 

file not found. 
X5 = code and status 
X6 = CIO control word 
B5 - 1 
B6 = -1 if an uncleared EOF on a 

read request 
B6 = -2 if an attempted read after 

write 



4.3 


GETBA 




4.3.1 


Calling 


Sequence and Returns 




Entry 


B2 = complement of 
file name or 




Exit 


B2 = FET address 
X3 = file name 


4.4 


OPEN 




4.4.1 


Calling 


Sequence and Returns 



This routine is entered by doing an RJ to OPEN, 
with XI set to the address of the first word 
of the FET of the associated file and X2 set 
to the function code for the desired call to OPE. 

Upon exit, the file will have been opened in the 
manner determined by the function code. 

4.5 SIO. 

4.5.1 Calling Sequence and Returns 
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This is the entry point for read/write 
processing. It is entered by doing an RJ 
to SIO. with XI set to the address of the 
first word of the FET associated with the 
file, SIO.CTL control word with bit 2 =0 
for a read request and =1 for a write 
request, and B registers set according to 
the following criteria: 

B7 =0 This is a formatted I/O request 

For a formatted read request, the 
150 character DAT. buffer will be 
utilized, with blank fill, replac- 
ing any zero bytes with blanks. 

For a formatted write request Bl 

contains the number of characters 

to be written from the DAT. buffer, 

starting at DAT,, through DAT. + Bl-1. 

Characters are expected in Rl format; 

i.e. right-adjusted, one character ,^-v 

per word, with zero fill. \ y 

B7 ^0 This is an unformatted I/O request 

Bl = INPUTB/OUTPUTB initialization 
Bl unformatted read/write request, 

Bl contains the number of 

words to be transferred 
Bl INPUTB/OUTPUTB termination 

Upon exit data will have been transferred be- 
tween the area defined and the buffer, operat- 
ing system calls will have been made as required, 
and IN and OUT will have been updated. Also X4 
will have been set as follows: 
f 

X4 - EOR 

X4 ± EOF 

X4 < else 

4.6 SYSTEM 

4.6.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message ^^^ 

(l 

5.0 Structure w 
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D9. INFUTN 

1.0 General Information 

This routine is called to handle FORTRAN 
statements of the following form: 

READ n 

READ (u,n) 

where n has been specified as NAMELIST. 

INPUTN will read from the specified file 
converting data as directed, and place it is 
the memory locations specified by the NAMELIST 
group . 

1.1 Approximate Length: 1226B 

2 . Entry Points 

2 . 1 INPUTN 

This is the only entry point to the routine 
and performs all NAMELIST input. 

2.1.1 Calling Sequence and Returns 

Upon entry, the following B registers are set: 

Bl - fwa of the NAMELIST 
information 

B2 » address of first word of 
FET of the file or comple- 
mented address of variable 
tape number. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Namelist name not found," error number 66, 
will be given if there is no Namelist name 
corresponding to the one requested. 

3.1.2 "No I/O medium assigned," error number 66, 
will be given if no file was found for the 
tape unit. 

3.1.3 "Wrong type constant," error numblr 66, will 
be given if the form of input data does not 
correspond in type to the variable specified. 
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3.1.4 "Incorrect subscript," error number 66, will 
be given if the subscript form does not 
correspond with that of the program variable. 

3.1.5 "Too many constants," error number 66, will 
be given if the number of pieces of input 
data specified for an array is more than the 
number of items in the array. 

3.1.6 "(,$,or = expected, missing," error number 66, 
will be given if a syntax error is encountered 
in NAMELIST input. 

3.1.7 "Variable name not found," error number 66, 
will be given if the data contains a name 
not in the NAMELIST group list. 

3.1.8 "Bad numeric constant," error number 66, will 
be given if NAMELIST input data entry is 
illegally formed. 

3.1.9 "Missing constant after *," error number 66, 
will be given if NAMELIST input data is 
incompletely formed. 

3.1.10 "Uncleared EOF on Read," error number 66, will 
be given if an attempt is made to read past 

an uncleared EOF. 

3.1.11 "Attempted Read after Write," error number 66, 
will be given if an attempt is made to read 
after a write operation on the file. 

3.2 Informative 

3.2.1 "Precision lost in floating integer constant," 
error number 49, will be given if an attempt 
is made to read an integer constant with more 
than 48 bits of precision into a single pre- 
cision floating point word. 

3.2.2 "Namelist data terminated by EOF, not $," 
error number 49, will be given if an end of 
file indicator is found in Namelist input 
data before the terminating $. 

3.2.3 "Too few constants for unsubscripted array," 
error number 49, will be given if the number 
of values listed for an array with no indexing 
is less than the size of an array. 
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4.3 
4.3.1 



INITL 



4.2.1 Calling Sequence and Returns 

An RJ to INITL. is made with the following 
registers set: 



Entry 



Exit 



B2 = address of first word of FET 

of the file, or the complement 
of either the file name or 
logical tape number. 

X6 = open parameter 

X7 = read/write parameter 

B2 = address of first word of FET 

of the file, or unchanged if 

file not found. 
X5 = code and status 
X6 = CIO control word 
B5 = 1 
B6 = -1 if an uncleared EOF on a 

read request 
B6 = -2 if an attempted read after 

write 



SIO. 



Calling Sequence and Returns 

This is the entry point for read/write process- 
ing. It is entered by doing an RJ to SIO. with 
XI set to the address of the first word of the 
FET associated with the file, SIO.CTL control 
word with bit 2 =0 for a read request and =1 
for a write request, and B registers set according 
to the following criteria: 

B7 =0 This is a formatted I/O request 

For a formatted read request, the 150 
character DAT. buffer will be utilized, 
with blank fill, replacing any zero 
bytes with blanks. 

For a formatted write request Bl con- 
tains the number of characters to be 
written from the DAT. buffer, starting 
at DAT., through DAT. +B1-1. Charac- 
ters are expected in Rl format; i.e. 
right -adjusted, one character per 
word, with zero fill. 
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4.4 
4.4.1 

5.0 

5.1 



6.1 



B7 ?*0 This is an unformatted I/O request 



B1=0 
B1>0 



BKO 



INPUTB/OUTPUTB initialization 
unformatted read/write request, 
Bl contains the number of words 
to be transferred 
INPUTB/OUTPUTB termination 



Upon exit data will have been transferred 
between the area defined and the buffer, 
operating system calls will have been made as 
required, and IN and OUT will have been updated. 
Also X4 will have been set as follows: 

X4 - EOR 
X4 > EOF 
X4 > else 

SYSTEM 

Calling Sequence and Returns 



Entry 



Structure 



XI = error number 

X2 = address of diagnostic message 



o 



INPUTN first saves registers, then calls INITL. 
to initialize the file. If the file is not 
found, or an attempt to read past an end of 
file is made, error exits are taken. A scan 
of the input file for a valid Namelist group 
name in the appropriate syntax is made. When 
a valid group name is encountered, valid 
variable names within the group are searched 
for, and syntax checked. Subscript evaluation 
takes place where necessary. Data constants 
are picked up, multiple groups recognized and 
checked for ize and data is converted accord- 
ing to type (integer, real, double precision, 
complex, and logical). Each record of validated 
information is placed in the DAT. buffer and a 
call is made to SIO. to transfer the information. 
Processing continues until a $, which terminates 
a Namelist group, or an end-of-file is encountered. 

The NAMELIST information area: 

Word 0: The NAMELIST name in display 

code, zero filled, left-adjusted 
in the lower 42 bits. 
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Word 3K-2: the name of the K associated 
variable, in display code, zero- 
filled, left-adjusted in the 
lower 42 bits. 

Word 3K-1: 1 in bits 59-54 (indicates 

FWA k is the address of a variable's 
first memory location) 

Zero in bits 53-48 

FWA k in 47-30 

T k in 29-0 (all right justified 

within the allotted bits) 

FWA. is the address of the variables first 
memory location 



the type 


of the variable 


> • 


1 ■ logical 

2 » integer 

4 * real 

5 = double 

6 = complex 


Word 3K: 


Zero 


in 59-54 


if 


not dimensioned 




2 


in 59-54 


if 


dimensioned 




*k 


in 53-36 








M1 k 


in 35-18 








LNG 


in 17-0 






M2 k is: 


the first dimension of a three- 
dimensional array. 




otherwise. 







LNG is : the number of elements (not 

necessarily the number of computer 
words) of an array. 

1 for a variable 
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Word 3N+1: (where N is the number of 
variables associated with 
the NAMELIST name.) 
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D10. INPUTS 

1.0 General Information 

The function of this routine is to transfer c con- 
secutive BCD characters from starting address v, to 
the address (es) of the specified list variables L, 
according to the FORTRAN FOBMAT specified by n, these 
parameters having been specified in the FORTRAN 
statement DECODE (c,n,v)L. This is a core to core 
transfer and therefore does not use peripheral equip- 
ment . 

1.1 Length: 302 g 

2.0 Entry Points 

2.1 INPUTS 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to INPUTS. It 
is entered four or more times. The first two entries 
are initialization phases, an intermediate entry for 
each data item, and a final entry to signal the end 
of data. The register conditions of the entry points 
are as follows: 

First Entry Bl = 0, 
B2 - 0, 

B3 - the address of the format state- 
ment , 
B4 = the character length, 

Second Entry Bl = the beginning address of the 

picked data, 

B2 « 0, 

Intermediate Bl = the address of data item or be- 
Entries ginning address of array, 

B2 = the array length or zero. 

Final Entry Bl « -1. 

Upon exit the character transfer will have been affected, 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 *DECODE CHAR/RECORD .GT.150* error number 66, will be 
given if the number of characters to be transferred is 
greater than 150. 
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4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Return 

A RJ to SYSTEM must be made prior to a RJ to ABNORML. 

4 . 2 KRAKER 

4.2.1 Calling Sequence and Return 

Entered three or more times, the first is for initial- 
ization purposes, the intermediates for processing, 
and the final to signal the end of data. At entry 
times the following register conditions should exist: 



4.3 



5.0 
5.1 
5.1.1 



First Entry 



Intermediate Entries 



Final Entry 
SYSTEM 

4.3.1 Calling Sequence and Return 
Entry 



Bl « 0, 

B2 * the address of data 

character buffer, 
B3 = the address of the FORMAT 

statement, 
B4 = the address of data fetch 

sequence, 
B5 = the address of calling 

routine, 
B6 = 0, 
B7 = the number of characters, 

Bl = the address of data item 
or beginning address 
of array, 

B2 = the array length of zero, 

Bl » -1. 



XI 
X2 



the error number, 

the address of the diagnostic message. 



Structure 

Initialization 

(FIRST) Initialization phase I. Stores traceback 
information and checks to see that the char/record 
count does not exceed 150. If it does, a jump to 
ERRS occurs. If not, the second entry flag is set 
to zero, the address of the format statement is saved. 
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and the number of characters in the record is saved. 

5.1.2 (SECND) Initialization phase II. Saves the beginning 
address of the packed data and sets the registers for 
the initial entry into KRAKER, then calls KRAKER. 

5.1.3 (ERRS) Calls SYSTEM (with an error number of 66 and 
a message of *DECODE CHAR/RECORD .GT. 150*) to pro- 
cess the error and then calls ABNORML to abort the 
job since the error is fatal to execution. 

5.2 RJDAT. Used by KRAKER to get a data line. 

5.2.1 (RDNX) Fetches a data word, sets up a character 
counter, and sets up an address pointer equal to the 
first word address of the data character buffer. 

5.2.2 (RDA) Sets up a counter which indicates the number 
of characters remaining in the word being processed, 
and a lower six bit mask register. 

1.2.3 (RDB) Left shifts the data word six bits then picks 

up the lower six bits; if the result is zero it creates 
a blank character. 

5.2.4 (NONE) Stores the character into the data buffer then 
decrements the character counter and the char/word 
indicator by one and increments the address pointer 

by one. Checks to see if all characters have been 
stored and if so executes a jump to RDC. Checks to 
see whether or not all the characters in a word have 
been processed and if not executes a jump to RDB. 
If true, it increments the data word address by one 
then jumps to RDA to fetch a new word. 

5.2.5 (RDC) Saves data word pointer, sets a pointer to the 
address of the last word of the character buffer. 

5.2.6 (RDD) Checks to see if block is full and if not 
stores a blank character and increments the address 
pointer by one. If full, a jump to RDE is executed. 

5.2.7 (RDE) Checks to see if block is full and if not 
executes a jump to RDD. If full, it sets a pointer 
to the first word address of the data character 
buffer and exits. 
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Dll. IOCHEC 

1.0 General Information 

This routine is called in response to the statement 
IF(IOCHECK,i) . ... It sets the return true (0) and 
exits. (There is no parity checking^) 

1.1 Length: 3 Q 

2.0 Entry Points 

2.1 IOCHEC 

2.1.1 Calling Sequence and Returns 

The routine exits after setting X6 to zero. 
3.0 Diagnostics: none. 
4.0 External routines: none. ,-^ 

o 

5.0 Structure 

5.1 X6 is set to zero and the routine exits. 
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1.1 

2.0 
2.1 



General Information 

The function Of this routine is to check the 
status of a buffered operation on logical unit i, 
to restore the buffer parameters affected by that 
operation, and if the last operation was a BUFFER 
IN, to ensure that the data has actually been 
transferred in response to the FORTRAN statement 
IF(UNIT,i) m,,m2,mo. Control is transferred to 
m, if the unit Is Busy. Upon completion of the 
routine, control is transferred to m ? if the 
last operation was a BUFFER OUT or if the BUFFER 
IN terminated normally, or if the last operation 
was a BUFFER IN and an EOR was read. Control is 
transferred to nu if the last operation was a 
BUFFER IN and an EOF was read. If i is a non- 
buffered unit, no buffer parameters are changed 
and control is transferred to m,. 

Approximate length: 113B 

Entry Points 

IOCHEK 



2.1.1 Calling Sequence and Returns 

This routine is called in response to a FORTRAN 
IF (unit,!) statement. IOCHEK is entered once 
for each FORTRAN statement. All B- registers 
are saved. 

Entry conditions 

X6 contains (1) the FET address or 
(2) the complement of the address 
of the logical file name or tape 
number 



Exit conditions 
X6 - 1 



X6 = 



if a read operation detected 

an end of file 

for all other conditions 






Upon exit the pending buffer operation will 
have been completed and the FET entries will 
have been reset. 
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Diagnostics 

Fatal to Execution 

"Unassigned medium, file XXXXXXX," error number 
67, will be given if no file was found for the 
tape unit . 

External Routines 

ABNORML 

Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an RJ 
to ABNORML 

CI01 

Calling Sequence and Returns 

Entry 



B6 
XI 
X2 



return address 

FET address 

function code for CIO 



GETBA 

Calling Sequence and Returns 

Entry 



Exit 



B2 = complement of address of either 
file name or logical tape number 

B2 = FET address 
X3 = file name 



SIO. 

Calling Sequence and Returns 

Entry 



Exit 



SYSTEM 



Bl - number of words to be moved 
B7 - address of data item or 

beginning address of array. 
XI = FET address 
X6 = function code for CIO 

X3 = if EOR was encountered during 

the move operation 
X3 ^ otherwise 
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4.5.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message 

5.0 Structure 

5.1 If the file being referenced is not a BUFFER 
file, no action is taken by IOCHEK. If neces- 
sary, GETBA is called to obtain the address of 
the FET. If the file cannot be referenced, an 
error exit is taken. If the file is busy, normal 
recall is initiated. If the previous operation 
on the file was a BUFFER OUT, the FET pointers 
are reset (FIRST=IN=OUT) , the B registers are 
restored, and the routine exits. If the pre- 
vious operation was a BUFFER IN, SIO. is 

called to complete any pending information 
transfer on an I or X tape file. On an S or 
L tape, recall is issued until the operation 
in progress is completed. The length of the 
block of information transferred is then 
placed in word 14 of the FET, the B registers 
are restored, and the routine exits. 
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D13. 



LENGTH 

1.0 General Information 

The function of this routine is to return the number 
of words read on logical unit i by the last BUFFER IN 
operation in response to the FORTRAN function LENGTH (i). 



1.1 
2.0 
2.1 



Length: 21 



8 



Entry Points 
LENGTH 



2.1.1 Calling Sequence and Returns 

This routine is entered by doing a RJ to LENGTH. Bl 
should contain the address of either the file name 
or the logical tape number associated with the tape 
unit. Upon exit, X6 will contain the number of words 
read on the file by the last BUFFER IN operation. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX", error number 81, 

will be given if no file was found for the tape unit. 

4.0 External Routines 

4.1 ABNORML 

4,1.1 Calling Sequence and Returns 

A RJ to SYSTEM must be made prior to a RJ to ABNORML. 

4.2 GETBA 

4.2.1 Calling Sequence and Returns 
Entry B2 



Exit 



complement of address of either file 
name or logical tape number 



B2 - FET address 
X3 = file name 



4 . 3 SYSTEM 

4.3.1 Calling Sequence and Returns 

Entry XI * error number 

X2 ■ address of diagnostic message 
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5.0 Structure 

5.1 B2, the only B register used, is saved. 

5.2 The entrance parameter is complemented and the FET 
address of the file for unit i is obtained by calling 
GETBA. If GETBA found the file in the list 6f FORTRAN 
files, a branch is taken to LEA. 

5.3 The file name is stored into the error message. SYSTEM 
(with an error number of 81 and an error message of 
"Unassigned medium, file XXXXXXX") is called to pro- 
cess the error and ABNORML is called to abort the job 
because the error is fatal. 

5.4 (LEA) X6 is set equal to the number of words read on 
unit i by the last BUFFER IN operation. 

5.5 B2 is restored and a branch is taken to exit. 
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D14. OUTPTB 
1.0 



1.1 
2.0 
2.1 



General Information 

The function of this routine is to transfer 
one logical record of binary information 
from storage location (L) to a file unit (i) 
as specified by one of the following FORTRAN 
statements: 

WRITE (i)L 
WRITE TAPE i,L 

If L is omitted, the routine writes a zero 
length logical record onto the file unit (i). 

Approximate length: 211B 

Entry Points 

OUTPTB 



2.1.1 Calling Sequence and Returns 

This routine is entered by doing an RJ to 
OUTPTB. It is entered three or more times; 
a first entry to initialize output, one 
intermediate entry for each array or data 
item, and a final entry to signal the list 
and terminate output. The register condi- 
tions for the entries should be: 



First entry 



Intermediate 



Final Entry 



Bl - 

B2 - the address of the buffer 
parameter list or the comple- 
ment of the address of the 
file name or logical tape 
number 

Bl = the address of the data 
item or the beginning 
address of the array 

B2 = the array length or 

Bl - -1 



Upon exit one binary logical record will have 
been written. 



3.0 Diagnostics 
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3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 82, will be given if no file was 
found for the tape unit. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an 
RJ to ABNORML 

4.2 CI01 

4.2.1 Calling Sequence and Returns 

Entry B6 - return address 
XI - FET address 
X2 = function code for CIO 

4.3 GETBA 

4.3.1 Calling Sequence and Returns 

Entry B2 = complement of address of 

either file name or logical 
tape number 

Exit B2 = FET address 
X3 = file name 

4.4 OPEN 

4.4.1 Calling Sequence and Returns 

Entry XI = FET address 

X2 - OPEN parameter 

4.5 SIO. 
4.5.1 Calling Sequence and Returns 

Entry Bl = number of words to be 

transferred 
B7 = address of data item or 

beginning address of array 
XI - FET address 
X6 - function code for CIO 
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4.7 
4.7.1 



5.0 
5.1 
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SYSTEM 



Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic 
message 

INITL 

Calling Sequence and Returns 

An RJ to INITL is made with the wollowing 
registers set : 



Entry 



Exit 



B2 = address of first word of FET 
of the file, or the comple- 
ment of either the file name 
or logical tape number 

X6 = open parameter 

X7 = read/write parameter 

B2 = address of first word of FET 

of the file, or unchanged 

if file not found. 
X5 = code and status 
X6 = CIO control word 
B5 - 1 
B6 = -1 if an uncleared EOF on a 

read request 
,B6 = -2 if an attempted read after 

write 



Structure 



At least two entries are made to OUTPTB 
in response to a binary write. The initial 
entry calls GETBA if necessary to obtain 
the address of the FET. If the file cannot 
be referenced an error 1 exit is taken. If 
the file is not blocked INITL is called to 
initialize the file, and an initialization 
call is made to SIO. 

As many intermediate entries are made as are 
necessary to transfer data. The parameters 
with which OUTPTB was called are passed in a call 
to SIO unless the file is blocked. 

The terminal entry makes a terminal call to SIO 
unless the file is blocked. 
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The first call to OUTPB on a blocked file 

opens the file if it is not yet opened, 

positions the file if the last operation 

was read, and initializes local cells. 

An intermediate call to OUTPB on a 
blocked file calls GETWDS if necessary to 
provide a number of sequential words in 
the buffer, sets up a call to MVWDS. to 
transfer the binary blocking control 
word and the user's logical record, and 
calls GETWDS again if necessary. 

The last call to OUTPTB on a blocked file 
calls GETWDS if necessary, prepares the 
next binary blocking control word, and 
updates the record count. 
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General Information 



MACHINE SERIES fiA/ftS/Aftnp 



This routine serves as the interface 
between the FORTRAN formatted output 
statements and the SCOPE system input/ 
output processing. In conjunction with 
the routine KODER (which converts inform- 
ation to the format specification), data 
items may be written onto a file in lines 
of MAXCHAR length. Although KODER is a 
part of the OUTPTC deck, it functions as 
a separate entity, and will be described 
separately. 

Approximate length (including KODER): 
1274B 

Entry Points 

OUTPTC 

Calling Sequence and Returns 

The procedure for utilizing OUTPTC involves 
an initialization call (accomplished by a 
return jump to the entry point OUTPTC with 
parameters designating the file to be 
referenced and the format to be used) , 
intermediate calls to convert an item or a 
sequence of items, and a final call to 
terminate the processing of the last line. 

Calling Procedure: 

Initialization Call 

RJ OUTPTC 

Where Register B2 has been set to a value 
ALPHA. If ALPHA>0 then ALPHA is 
the address of the first word of the 
file environment table of the file 
to be referenced. 

If ALPHA*0 then the contents of the 
word at location -ALPHA contains the 
file designation, which may be in 
either of two forms : 
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1. VFD 60/U 1*U*99 

2. VFD 42/FNAME,18/0 



Where FNAME is 
the display code 
file-name to be 
referenced. 



3.0 
3.1 
3.1.1 

3.1.2 

4.0 
4.1 



Register B3 has been set to a value BETA. 
If BETA>0 then it is the address of the 
format to be used (the word at BETA will 
contain the display code of the format 
number in the source code and the format 
strong begins at location BETA+1. If 
BETA<0 then it is the complement of the 
first word of a variable format strong. 

Intermediate Calls 

RJ OUTPTC 

Where Register Bl has been set to the address of 
a sequence of items (possibly of length 1) 
to be converted. 

Register B2 contains the number of words 
which comprise the items to be converted 
(the items may be single or double word 
entities). 

Final Call 

RJ OUTPTC 

Where Register Bl has been set to a negative 
quantity. 

Diagnostics 

Fatal to Execution 

"Unassigned medium, file XXXXX," error number 83, 
will be given if no file was found for a tape unit. 

•'Output file line limit exceeded", error number 84, 
will be given if the line limit, as specified on 
the RUN card is exceeded. 

External Routines 

ABNORML 
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4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM just be made prior to an RJ 
to ABNORML 



4.2 INITL 

4.2.1 Calling Sequence and Returns 

An RJ to INITL is made with the following 
registers set: 



Entry 



Exit 



B2 = 



X6 = 

X7 - 

B2 - 



address of first word of FET 
of the file, or the complement 
of either the file name or 
logical tape number. 

open parameter 
read/write parameter 



address of first word of FET 

of file, or unchanged if file 

not found. 
X5 = code and status 
X6 - CIO control word 
B5 = 1 
B6 = -1 if an uncleared EOF on a 

read request. 
B6 - -2 if an attempted read after 

write 






4.3 SIO. 

4.3.1 Calling Sequence and Returns 

This is the entry point for read/write process- 
ing. It is entered by doing an RJ to SIO. with 
Xl set to the address of the first word of the 
, FET associated with the file, SIO.CTL control 
word with bit 2 =0 for a read request and =1 
for a write request, and B registers set 
according to the following criteria: 

B7 =0 This is a formatted I/O request 

For a formatted read request, the 
150 character DAT. buffer will be 
utilized, with blank fill, replacing 
any zero bytes with blanks. 
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For a formatted write request, Bl 
contains the number of characters 
to be written from the DAT. buffer, 
starting at DAT., through DAT. +B1-1. 
Characters are expected in Rl format; 
i.e. right -adjusted, one character 
per word, with zero fill. 

B7 ^0 This is an unformatted I/O request 

B1=0 INPUTB/OUTPUTB initialization 
Bl unformatted read/write request, 

Bl contains the number of words 

to be transferred 
Bl INPUTB/OUTPUTB termination 

Upon exit data will have been transferred 
between the area defined and the buffer, 
operating system calls will have been. made as 
required, and IN and OUT will have been up- 
dated. Also X4 will have been set as follows: 

X4 -'-■ EOR 
X4 EOF 
X4' else 

4.4 SYSTEM 

4.4.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message 
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This routine is called to handle FORTRAN 
Statements of the form: 

PRINT n 
WRITE (u,n) 

where n has been specified as NAMELIST. 

OUTPTN will convert the data associated with 
the NAMELIST group according to the mode of 
the variables in the group. The information 
will be placed on the specified file. 

1.1 Length: 452B 

2.0 Entry Points 

2.1 OUTPTN. This is the only entry point to the 
routine and performs all NAMELIST output. 

2.1.1 Calling Sequence and Returns 

Upon entry the following B registers are set: 

Bl - fwa of the NAMELIST group area 
B2 - address of the first word of FET 
of the file or complemented 
address of variable tape number. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 64, will be given if no file was 
found for the tape unit. 

3.1.2 "Output file line limit exceeded," error 
number 84, will be given if the line limit, 
as specified on the RUN card, is exceeded. 

4.0 External Routines 

4.1 ABNORML 
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Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an 
to ABNORML 

INITL 

Calling Sequence and Returns 

An RJ to INITL is made with the following 
registers set: 



Entry 



Exit 



B2 = address of first word of FET 

of the file, or the complement 
of either the file name or 
logical tape number, 

X6 = open parameter 

X7 = read/write parameter 

B2 = address of first word of 

FET of the file, or unchanged 

if file not found. 
X5 = code and status 
X6 = CIO control word 
B5 = 1 
B6 = -1 if an uncleared EOF on a 

read request 
B6 = -2 if an attempted read after 

write 



SIO. 



Calling Sequence and Returns 

This is the entry point for read/write 
processing. It is entered by doing an RJ 
to SIO. with XI set to the address of the 
first word of the FET associated with the 
file, SIO.CTL control word with bit 2 -0 
for a read request and =1 for a write re- 
quest, and B registers set according to the 
following criteria: 

B7 =0 This is a formatted I/O request 

For a formatted read request, the 
150 character DAT. buffer will be 
utilized, with blank fill, replac- 
ing any zero bytes with blanks. 
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For a formatted write request, Bl 
contains the number of characters 
to be written from the DAT, buffer, 
starting at DAT. , through DAT. - Bl-1. 
Characters are expected in Rl format; 
i.e. right-adjusted, one character 
per word, with zero fill. 

B7 9*0 This is an unformatted I/O request 

B1=0 INPUTB/OUTPUTB initialization 
Bl unformatted read/write request, 

Bl contains the number of words 

to be transferred 
Bl INPUTB/OUTPTB termination 

Upon exit data will have been transferred between 
the area defined and the buffer, operating system 
calls will have been made as required, and IN and 
OUT will have been updated. Also X4 will have 
been set as follows: 

X4 = EOR 

X4 EOF I) 

X4 else 4# 

4.4 SYSTEM 

4.4.1 Calling Sequence and Returns 

Entry XI = error 

X2 = address of diagnostic message 

5.0 Structure 

5.1 OUTPTN first save registers, then calls INITL. 
to initialize the file. If the file is not 
found, error exit is taken. OUTPTN then forms 
the first line of Namelist output, i.e., 

$ "Namelist-group-name", and calls SIO. to 
transfer the line to the output buffer. The 
Namelist information area, as described in 
Section 6 of INPUTN, is then utilized in 

printing out the variables and their values 
which are associated with the Namelist group. 
Information is stored in the DAT. buffer and 
again SIO. is called to transfer the information, 
a record at a time, to the output buffer. Pro- 
cessing continues until the zeroword at the end 
of the Namelist information area is encountered. 
At that point, "END" is sent to the output 

buffer via SIO. and control is returned to the f\ 

caller via the entry point. ^~* 
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D17. OUTPUTS 

1.0 General Information 

The function of this routine is to transfer the in- 
formation in the list variables, L, according tb the 
FORTRAN FORMAT specified by n, into the locations (s) 
starting at v, .c BCD characters per record. These 
parameters having been specified in the FORTRAN 
statement ENCODE (c,n,v)L. This is a core to core 
transfer and therefore does not use peripheral 
equipment. 

1.1 Length: 305 Q 

2.0 Entry Points 

2.1 OUTPUTS 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to OUTPUTS. It 
is entered four or more times. The first two entries 
are initialization phases, an intermediate entry for 
each data item, and a final entry to signal the end 
of data. The register conditions at the entry points 
are as follows: 

First Entry Bl « 0, 

B2 = 0, 
B3 = the address of the format 

statement, 
B4 = the character length, 

Second Entry Bl « the beginning address of the 

packed data, 
B2 - 0, 

Intermediate 

Entries Bl » the address of data item or 

beginning address of array, 
B2 « the array length or zero. 

Final Entry Bl.- -1. 

Upon exit the character transfer will have been 
affected. 

3.0 Diagnostics 

3.1 Fatal to Execution 
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3.1.1 ENCODE * CHAR/REC ,GT. 150* error number 85, will be 
given if the number of characters to be transferred 
is greater than 150. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Return 

A RJ to SYSTEM must be made prior to a RJ to ABNORML. 

4 . 2 KODER 

4.2.1 Calling Sequence and Return 

Entered three or more times, the first is for initial- 
ization purposes, the intermediates for processing, 
and the final to signal the end of data. At entry 
times the following register conditions should exist: 

First Entry Bl - 0, \J 

B2 = the address of data character 

buffer 
B3 = the address of the FORMAT state- 
ment, 
B4 - the address of data fetch sequence, 
B5 = the address of calling routine, 
B6 = 0, 
B7 = the number of characters, 

Intermediate 

Entries Bl - the address of data item or be- 
ginning address of array, 
B2 - the array length or zero, 

Final Entry Bl = -1. 

4.3 SYSTEM 

4.3.1 Calling Sequence and Return 

Entry XI = the error number 

X2 - the address of the diagnostic 
message 



5.0 Structure 

5.1 Initialization 
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5.1.1 (FIRST) Initialization phase I. Stores traceback 
information and checks to see that the char/record 
count does hot exceed 150. if it does, a jump to 
ERRS occurs. If not, the second entry flag is set 
to zero, the address of the format statement is 
saved, and the number of characters in the record is 
saved. 



^■r 



5.1.2 (SECND) Initialization phase II. Saves the beginning 
address of , the packed data and sets the registers 

for the initial entry into KODER, then calls KODER. 

5.1.3 (ERRS) Calls SYSTEM (with an error number of 85 and 
a message of *ENCODE CHAR/REC ,GT. 150*) to process 
the error and then calls ABNORML to abort the job 
since the error is fatal to execution. 

5.2 RJDAT. Used by KODER to store a data line. 

5.2.1 (WTNX) Sets up a character pointer, a CHAR/RECORD 
counter, and a WORD pointer. 

5.2.2 (WTA) Clears a word to zeros and sets up the CHAR/ 
WORD counter. 



5.2.3 (WTB) Fetches a character and checks to see whether 
or not it is zero. If it is, a jump to WTC is 
executed; otherwise, the CHAR/RECORD and the CHAR/ 
WORD counters are decremented by one, and the char- 
acter stored in the data word. Checks to see if the 
CHAR/RECORD counter is less than one. If it is, ex* 
ecutes a jump to WTC? otherwise, checks to see whether 
or not CHAR/WORD counter is zero. If it is not, jumps 
back to WTB; otherwise, it stores WORD and increments 
the WORD pointer by one and jumps back to WTA. 

5.2.4 (WTC) Asks whether or not CHAR/WORD counter is zero, 
and if it is executes a jump to WTE, otherwise a 
blank character is set. 

5.2.5 (WTD) Decrements the CHAR/RECORD and CHAR/WORD 
counters by one and stores the blank character. 

5.2.6 (WTE) Asks if CHAR/WORD counter is not equal to zero, 
and if so executes a jump to WTD, otherwise it sets up 
a word of blanks. 

5.2.7 (WTF) Stores a packed word and increments the WORD 
pointer by one, »and then asks if the CHAR/RECORD 
counter is less than one. If true, a jump to WTG is 
executed, otherwise the CHAR/RECORD counter is de- 
cremented by one and a jump to WTF is executed. 
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5.2.8 (WTG) Saves word address and sets the character 
buffer address, then exits. 
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D18. REWINM 

1.0 General Information 

The function of this routine is to rewind to 
load point tape unit i in response to the 
FORTRAN statement REWIND i. 

1.1 Ength: 52 g 

2.0 Entry Points 

2.1 REWINM 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing an RJ to 
REWINM, X6 should contain the complement of 
the address either the file name or the 
logical tape number associated with the tape 
v unit; or X6 should contain the address of 
the first word of the FET associated with 
the file. Upon exit the tape will have 
been rewound to load point. 

3.0 Diagnostics 

3.1 Fatal to Execution 

3.1.1 "Unassigned medium, file XXXXXXX," error 
number 86, will be given if no file was 
found for the tape unit. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

An RJ to SYSTEM must be made prior to an 
RJ to ABNORML 

4.2 CIOl. 

4.2.1 Calling Sequence and Returns 

Entry B6 - return address 

©XI « FET address 
X2 = function code for CIO 
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4.3 GETBA 

4.3.1 Calling Sequence and Returns 

Entry B2 ■ complement of address of 
either the file name, or 
logical tape number. 

Exit B2 = address o£ first word of 
FET of the file. 
X8 = file name 

4.4 INITL. 

4.4.1 Calling Sequence and Returns 

An RJ to INITL. is made with the following 
registers set: 

Entry B2 » address of first word of FET 
of file, or the complement of 
either the file name or 
logical tape number. 

X6 = open parameter 

X7 = read/write parameter 

Exit B2 = address of first word of FET 

of the file, or unchanged if 

file not found. 
X5 » code and status 
X6 = CIO control word 
B5 - 1 
B6 - -1 if an uncleared EOF on a 

read request 
B6 ■ -2 if an attempted read after 

write 

4.5 ADVIN 

4.5.1 Calling Sequence and Returns 

An RJ to ADVIN is made with the following 
register set: 

XI « address of first word of FET 
of the file 

ADVIN advances the IN pointer by 1. t\ 

4.6 SYSTEM 
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4.6.1 Calling Sequence and Returns 

Entry XI - error number 

X2 - address of diagnostic message 

5.0 Structure 

5.1 Registers Bl, B2, B6 and B7 are saved. If 
necessary, GETBA is called to obtain the 
address of the FET. If the file cannot be 
referenced, an error exit is taken. If 
the file has not been opened, the B registers 
are restored and the routine exits. INITL is 
called to determine the status of the file. 
If the file is blocked binary and the last 
operation was a write, ADVIN. is called to 
write an end-of-file if necessary. The 
end-of-file flag is then cleared and CI01. 
is called to rewind the file. The B 
registers are restored and the routine exits. 
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XRCL 
1.0 



General Information 

XRCL is called to enter the program into recall 
status . 



1.1 Length: 5 

2.0 Entry Points 

2.1 XRCL 

2.1.1 Calling Sequence and Returns: hone 
3.0 Diagnostics Produced: none 

External Routines: none 

Structure 



4.0 
5.0 
5.1 



Wait until RA+1 is clear. Put "RCL" in the upper 
18 bits of RA+1. Wait until RA+1 is clear, then 
EXIT. 
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D20 KRAKER 

1.0 General Information 

The function of this routine is to perform formatted 
conversion of data from display code form into 
machine internal form in response to calls from 
INPUTC or INPUTS. 

1.1 Approximate length: (see section D8 on INPUTC) 

2.0 Entry Points 

2.1 KRAKER 

2.1.1 Calling Sequence and Returns 

The procedure for utilizing KRAKER involves an 
initialization call providing various state 
setting information (location of the format to 
use, length of the input line, etc.), intermediate 

O calls to perform the conversion of the data items, 

and a terminal call to conclude processing of 
the last line. 

Calling Procedure: 

Initialization Call 

RJ KRAKER 

where the following registers have been set 

Bl — 

B2 -- the address of the first word of the 
data buffer which will hold an input 
line, burst into one character per 
word, right-justified with binary 
zero fill 

B3 — address of the format id for a compiled 
format or the address minus one of the 
first word of a variable format. (For 
a compiled format, the format id is a 
word containing the format number in 
display code, left-justified with 
binary zero fill; the format proper 
follows the format id word.) 

B4 -- the address of the word containing a 
RJ instruction to the routine which 
will "read" the next line into the 
data buffer 
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3.0 
3.1 



B5 — the maximum length of the input line 

(in characters) 
B6 — the address of the word which will 
contain the record count for the 
file being read from 
X3 — if KRAKER is to handle calls resulting 
from a READ statement; 
^0 if KRAKER is to handle calls resulting 
from a DECODE statement 

Intermediate Calls 

RJ KRAKER 

where the following registers have been set 

Bl — the address of the first word of the 
items in which to place the converted 
data 

B2 — the number of words which comprise the 
items. (If the contents of B2 are zero, 
then one item will be converted.) 

Final Call 

RJ KRAKER 

where Bl has been set to a negative value 

Diagnostics 

Fatal to Execution 



3.1.1 "Illegal functional letter", error number 74, 
will be issued if an unrecognizable format 
specification is encountered. 

3.1.2 "Paren group not closed", error number 75, will 
be issued if the end-of- format indication (a 
00g character) is encountered before the closing 
right parenthesis of the format. 

3.1.3 "Field width zero", error number 76, will be 
issued if a format specification which specifies 
a field width of zero is encountered 

3.1.4 "Exceeded record size", error number 77, will be 
issued if an attempt to read beyond the length 
specified in the initialization entry to KRAKER 
is encountered. 
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3.1.5 "Illegal data in field", error number 78, will 
be issued if a non-digit character appears out 
of place in a numeric field. 

3.1.6 "Data overflow", error number 79, will be issued 
if the data to be converted has a value which is 
too large to be expressed internally in the 
machine. 

3.1.7 "Hollerith format with list", error number 80, 
will be issued if no format conversion 
specification is encountered in a format and 
there is a request for an item to be converted. 

4.0 External Routines 

4.1 ABNORML 

4.1.1 Calling Sequence and Returns 

A RJ to SYSTEM must be made prior to a RJ to 
ABNORML (which will abort the job) 

4.2 SYSTEM 

4.2.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message 



5.0 
5.1 



Structure 



The main cycle of conversion for each format 
specification consists of determining the appropriate 
processor for the format specification and jumping 
to the location for the processor. The processor 
selected then converts the data, increments the 
format and data pointers and then returns to a 
common point where the converted value is stored 
and, if the intermediate entry was a "short-list" 
call, the cycle is entered again. If only a 
single item was requested then the routine returns 
to the caller. 

5.2 Format Specification Processors 

5.2.1 (RPARN) Right Parenthesis Processor 

If the repeat count is not exhausted for the group 
then the format pointer is reset to the beginning 
of the group and the scanning cycle is re-entered 
(unless this is a DECODE call and this is the 
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terminal call, in which case an exit is made from 
KRAKER). If the end of the format has been 
reached then the format pointer is reset (the manner 
of resetting depends on whether the USASI mode 
of format scanning has been selected or not). If 
no item conversion specification has been encountered 
and there is a request for an item outstanding then 
a diagnostic message is issued and the job aborted. 

5.2.2 (LPARN) Left Parenthesis Processor 

Unless too many levels of parentheses are 
encountered (three are allowed in USASI formats, 
two otherwise) this processor serves to push-down 
the level and information associated with group 
repeating. 

5.2.3 (SLASH) Slash Processor 

The routine RDNX is called to read the next line 
(or lines) to satisfy the H n/" format specification. 

5-2.4 (XCODE) X- specification Processor 

The data pointer is incremented by the count of 
the "X" specification and the scanning cycle 
re-entered. 

5.2.5 (HCODE) H-specif ication Processor 

If there is no overflow of data requested then the 
next "n" characters are transferred from the data 
string to the format to appear after the M nH". 

5.2.6 (STAR) Asterisk-specification Processor 

Data is transferred from the data string to the 
format until the matching asterisk is encountered 
in the format (anu asterisks encountered in the 
data stream will be transmitted as blanks). 

5.2.7 (PCODE, PLUS, MINUS) Scale Factor Processor 

The value of the scale factor designated is set 
into the location SCA. 

5.2.8 (IC0DE,FC0DE,EC0DE,DC0DE) D, E, F, G, and I 
Specification Processors 

These processors (using several common segments of 
code) convert decimal numeric data into internal 
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form. The floating point processor portion uses 
triple precision multiplication in the scaling of 
the numbers which it then rounds to either double 
or single precision for storing into the data 
item. 

5.2.9 (ACODE,RCODE) A- and R- specification Processors 

These processors transfer display code data from 
the data string into either left- justified, blank 
fill form (A) or right-justified, binary zero fill 
form (R) for storing. 

5.2.10 (OCODE) 0- specification Processor 

This processor converts octal numeric data from 
display code form into internal form. 

5.2.11 (LCODE) L-specification processor 

The value of the logical specification is set to 
false (-0) as an initial condition and if the 
first non-blank character in the defined field 
is a M T" then the value is set to true (+0). 

5.3 Local Routines 

5.3.1 (XOV) 

This routine checks for the record length requested 
being larger than the specified length in the initial 
call. 

5.3.2 (LDNX) 

This routine loads and bursts the next word of the 
format. 

5.3.3 (FWD) 

This routine converts a string of format characters 
from digits into binary form until a non-blank, 
non-digit character is encountered. (Blanks are 
ignored. ) 

5.3.4 (RDNX) 
This routine reads the next line from the data stream. 
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III. Utility Routines 

A. Description of Each Roufdne 
Al. ALGOER 

1.0 General Information 

ALGOER is called when an error is detected in. an 
-assigned or computed GO TO. It gives a diagnostic, 
traceback, and aborts the job. 

1.1 Length: 12 

o 

2.0 Entry Points 

2.1 ALGOER 

2.1.1 Calling Sequence and Returns: none 

3.0 Diagnostics <f~\ 

3.1 Informative; none 

3 . 2 Fatal 

3.2.1 ERROR, COMPUTED OR ASSIGNED GO TO UST 

4.0 External Routines 

4 . 1 SYSTEM 

4.1.1 Calling Sequence and Returns 

Entry XI = error number 

X2 = address of diagnostic message 

4.2 ABNORML 

4.2.1 Calling Sequence and Returns 

Must be preceeded by a RJ to SYSTEM, 
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A2. DISPLA 

1.0 General Information 

The function of this routine is to display a variable 
name according to the Hollerith specifications H and 
a numerical value k in the dayf ile in response to the 
FORTRAN statement CALL DISPLA (h,k) . The value k is 
displayed as an integer if it is not normalized and 
in floating point format if it is normalized. If k 
is infinite or out of range, it will be displayed as a 
message to that effect. 

1.1 Length: 247 Q 

O 

2.0 Entry Points 

2.1 DISPLA 

2.1.1 Calling Sequence and Returns 

This routine is entered by doing a RJ to DISPLA. Bl 
should contain the beginning address of the array con- 
taining the 'Hollerith data and B2 should contain the 
address of the numerical data. Upon exit, the 
Hollerith message and its numerical value will have 
been displayed on the dayf ile. 

3.0 Diagnostics 

3.1 No diagnostics are given. 

4.0 External Routines 

4.1 No external routinesc.are used. 

5.0 Structure 

5.1 No registers are saved. 

5.2 The numerical data is fetched. 

5.3 (DLAY1) If a request cannot be issued at this time, 
a branch is taken to DLAYl. 

5.4 (DBA) The next word of the Hollerith message is 
fetched and stored for a MSG request. 

5.4.1 If there are more words in the Hollerith message, a 
branch is taken to DBA. 
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5.4.2 If the numerical value is positive, a branch is taken 

to DIA. Otherwise, the numerical value is complemented. 

5.5 (DIA) The sign of the numerical value is stored for 
the MSG request (a positive value is given a blank 
rather than a plus sign). 

5.5.1 If the numerical value is zero, a branch is taken to 
INT. 

5.6 (DIB) If the numerical value is infinite, a branch is 
taken to ERR with the message INFINITE. 

5.6.1 If the numerical value is out of range, a branch is 
taken to ERR with the message RANGE. Otherwise, the* 
numerical value is normalized. 

5.6.2 If the numerical value was already normalized, a branch 
is taken to FPT. 

5.6.3 If the numerical value is not a floating point zero, 
a branch is taken to INT. 

5.7 (FPT) The numerical value is converted to a floating 
point number and stored one character per word in the 
array DAT. 

5.8 (PCK) The pointer to the array DAT is initialized. 

5.8.1 (DPG) The next character in the number is packed into 
a word. 

5.8.2 (DPJ) If there is a character in the high order position 
of the word, a branch is taken to DPH. Otherwise, the 
characters are shifted left one place. 

5.8.3 If there are no more characters to be packed into the 
word, a branch is taken to DPJ. Otherwise, a branch 
is taken to DPG. 

5.8.4 (DPH) The packed word is Stored for the MSG request. 

5.8.5 If there are no more characters to be packed into words, 
a branch is taken to DPI. Otherwise, a branch to DPG 

is taken. 

5.9 (DPI) The MSG request is set up. 

5.10 (WRT) If the MSG request cannot be issued, a branch 
is taken to WRT. 
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5.10.1 The MSG request i_ issued. 

5.11 (WRU) If the MSG request has not been honored, a 
branch is taken to WRU. 

5.11.1 A RCL request is issued and a branch is taken to exit. 

5.12 (INT) The numerical value is converted to an integer 
and stored one character per word in the array DAT. 

5.13 (ERR) The error message is stored for the MSG request 
and a branch is taken to DPI. 
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A3 . DUMP 
1.0 



General Information 

The function of this routine is to dump from one to 
twenty areas of storage according to a specified format 
on the OUTPUT file in response to one of the following 
FORTRAN statements t 



CALL DUMP(a 1 ,b ir f 1 ,...,ag f b n ,f n ) 

CALL PDUMP(a 1 ,b 1 ,f 1 , ...,a n ,b n ,f n ) 

where the a.'s and b.'s are respectively the first and 
last words of the storage area to be dumped and the 
f^'s are the format specifications. If no parameters 
are provided, an octal dump of all storage occurs. 
If PDUMP was called, control is returned to the calling 
program. If DUMP was called, the calling program is 
terminated and control is returned to the monitor. 

1.1 Length: 213 g 

2.0 Entry Points 

2 . 1 DUMP 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to DUMP. It may 
be entered with as many as sixty parameters. The order 
of the parameters should be a^,b^,f^, . . . ,a n ,b n ,f n , 
where n^20. The first six parameters should be con- 
tained in order in registers B1-B6. The remaining 
parameters should be stored in order beginning at 
location ST+6, where ST is the address of the beginning 
of the parameter region for the routine as described 
in the FORTRAN reference manual Appendix H. B7 should 
contain the number of parameters. Upon exit, a dump 
of the designated storage areas according to their 
specified formats will have been performed on the 
OUTPUT file. The calling program will have been 
terminated and control returned to the monitor. 

2 . 2 PDUMP 

2.2.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to PDUMP. It may 
be entered with as many as sixty parameters. The 
order of the parameters should be a-^,b^,f j, . . . ,a n ,b n ,f n , 
where n is less than or equal to 20. The first six 
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parameters should be contained in order in registers 
B1-B6 . The remaining parameters should be stored 
in order beginning at location ST+6 , where ST is the 
address of the beginning of the parameter region for 
the routine as described in the FORTRAN reference 
manual Appendix H. B7 should contain the number of 
parameters. Upon exit, a dump of the designated 
storage areas according to their specified formats 
will have been performed on the OUTPUT file. 

Diagnostics 

No diagnostics are given. 

External Routines 



4.1 OUTPTC 

■4.1.1 Calling Sequence and Returns 



First Entry 



Bl 
B2 



- 



B2 = 



the address of the buffer 
parameter list or the comple- 
mented address of the variable 
tape number 

the address of the format state- 
ment 



Intermediate 
Entries 



Bl = the address of the data item or 
the beginning address of the 
array 

B2 ■ the array length or zero 

Final Entry Bl - -1 

4.2 STOP 

4.2.1 Calling Sequence and Returns 

Upon exit from this routine, the calling program will 
have been terminated and control is returned to the 
monitor . 

5 . Structure 

5.1 No registers are saved. 

5.2 (PDUMP) ELG is set to zero to indicate that the 
routine was entered at PDUMP and then a branch is 
taken to PDUMPl. 
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5.3 (DUMP) FLG is set to one to indicate that the routine 
was entered at DUMP. A RJ is made to DMP to perform 
the dump and then a RJ is made to STOP to terminate 
execution of the calling program. 

5.4 (PDUMPl) A RJ is made to DMP to perform the dump and 
then a branch is taken to exit. 

5.5 (DMP) If a dump of all storage is indicated, a branch 
is taken to DMA. Otherwise, the parameters contained 
in Bl through B6 are stored in the parameter list. 

5.5.1 The end of the parameter list is calculated. 

5.6 (DML) If there are no more storage areas left to be 
dumped, a branch is taken to exit. Otherwise, the 
start of the parameter list is updated and the first 
and last word address of the area to be dumped are 
stored for a call to LST. 

5.6.1 If the last word address of the area to be dumped 

is greater than the first word address of that area, 
a branch is taken to DMG. Otherwise, the two addresses 
are reversed and stored. 

5.7 (DMG) The dump is given an E format specification. If 
the dump parameter indicated E format, a branch is 
taken to DUF. 

5.7.1 The dump is given an I format specification. If the 
dump parameter indicated I format, a branch is taken 
to DUF. Otherwise, the dump is given an O format 
specification. 

5.8 (DUF) The format specification is stored for a call to 
OUTPTC. A RJ is made to LST to write the dump on the 
OUTPUT file and then a branch is taken to DML. 

5.9 (DMA) The first word address of the area to be dumped 
is set equal to zero and the last word address, to the 
execution field length. These addresses are stored 
for a call to LST. 

5.9.1 An format specification is stored for a call to 
OUTPTC. 

5.9.2 A RJ is made to LST to write the dump on the OUTPUT 
file and then a branch is taken to exit. 

5.10 (LSS) If an intermediate entry to OUTPTC has to be 
made, a branch is taken to LSM. Otherwise, Bl is 
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set equal to minus one and a RJ is made to OUTPTC. 

to signal the end of the dump. A branch is then taken 

to exit. 

5.11 (LST) The parameters for the first entry to OUTPTC are 
set up. 

5.11.1 If the routine was entered at PDUMP, a branch is taken 
to LSTA. Otherwise, a RJ is made to OUTPTC to signal 
the beginning of a dump from DUMP. 

5.11.2 (LSTA) A RJ is made to OUTPTC to signal the beginning 
of a dump from PDUMP. 

5.12 (LSA) Bl is set to the beginning address of the area 
to be dumped and this address is stored in the array 
to be written on the OUTPUT file by OUTPTC. 

5.12.1 The beginning address of the area to be dumped is up- 
' dated and B2 is set equal to zero. 

5.13 (LSP) If no words remain to be transferred to the 
array to be written on the OUTPUT file by OUTPTC, 

a branch is 'taken to LSS. Otherwise, B2 is incremented 
by one and the next word to be dumped is stored into 
the array to be written on the OUTPUT file by OUTPTC. 

5.13.1 If less than four of the words to be dumped have been 
stored into the array to be written on the OUTPUT file 
by OUTPTC, a branch is taken to LSP. 

5.14 (LSM) B2 is increased by one. A RJ is made to OUTPTC 
to write out one line of the dump and then a branch 

is taken to LSA. 
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A4. 



DVCHK 

1.0 General Information 

Routine provides for compatibility. It is called in 
response to the FORTRAN statement IF DIVIDE CHECK n 1# n 2 , 

1 . 1 Length : 6 

2.0 Entry Points 

2.1 DVCHK 

2.1.1 Calling Sequence and Returns 

Entry Bl - address to return value in 

Exit X6 - indefinite, a 1 is returned or out 

of range 

otherwise a 2 

3.0 Diagnostics: none 

4.0 External Routine: none 
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A5 . LEGVAR 

1.0 General Information 

Called in response to a function reference LEGVAR (a) 
where a is a variable. It checks the legitimacy of 
the specified library and returns the following values: 

-1 - variable indefinite 

- variable legitimate 

1 - variable out of range 

1.1 Length: 5 

2.0 Entry points 

2.1 LEGVAR 
2.1.1 Calling Sequence and Returns 

Entry Bl - contains address of variable in question 

Exit X6 = 1 or or -1 (see 1.0) 
3.0 Diagnostics: none 
4.0 External Routines: none 
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1.0 General Information 

LOCF is called as a function to find the 
address of a variable. 

1.1 Length: 5 

2.0 Entry Points 

2 . 1 LOCF 

2.1.1 Calling Sequence and Returns 

Entry Bl = contains address of variable 
X6 ■ contains address of variable 

2.2 XLOCF - synonymous entry with LOCF 
2.2.1 Calling Sequence and Returns 

Entry 



Bl 
X6 



contains address of variable 
contains address of variable 



O 



3.0 
4.0 



Diagnostics: none 
External Routines: none 
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A7. OVERLAY 

1.0 General Information 

FORTRAN statement routine is called for CALL ©VERLAY 
(fn,l,l r) . 

OVERLAY will translate the information. It is sent 
into a call to the loader, which will cause the 
requested overlay to be loaded. After loading, 
control is returned to this routine, which then sets 
up the entry exit/line of the overlay and transfers 
control to the overlay. 

1.1 Length: 45« 

2.0 Entry Points 

2 . 1 OVERLAY 

2.1.1 A return jump is made to this entry point after the 
following registers are set: 

Bl - address of fn 

B2 - address of 1 

B3 - address of 1* 

B4 - address of r 

This will cause the requested overlay to be loaded 
and control transferred to it. 

3.0 Diagnostics 

3.1 Informative: None 

3.2 Fatal to execution 

3.2.1 FATAL ERROR IN LOADER 

This is given when the loader sets the fatal error 
bit in the loader control words. 

4.0 External Routines 

4 . 1 SYSTEM 

4.1.1 Called to list the error message and give traceback. 

4.2 ABNORML 

4.2.1 Call to close out and abort the job. 
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5.0 Structure 

5.1 Check fourth parameter. If it wasn't "RECALL" go to 
5.2 (OVA). Otherwise check to see if the requested 
overlay was the last one loaded. If not, go to 5.2 
(OVA). If it was, initialize the entry/exit line 

of the overlay and enter the overlay. 

5.2 (OVA) Delete trailing blanks from the file name and 
set up the parameters for the loader. Call the loader 
to have the overlay loaded. If fatal errors were 
detected, go to 5.3 (OVE) . Otherwise, save the entry 
address of the overlay, initialize the entry/exit 
line of the overlay, and enter the overlay. 

5.3 (OVE) Call SYSTEM to print the error message and give 
traceback. Then call ABNORML to abort the job. 

6 . FORMATS 

6.1 OVX - bits 54-59 1. 

48-53 li 

30-42 Entry Address 

This call is set each time an overlay has been loaded 
and checked when the RECALL parameter is specified. 

6.2 OVR - contains "RECALLbbbb" in display code (b means 
a blank) . 

6.3 OVP - First of three words that are used for communica- 
tion with the loaders 

#1 file name with trailing blanks eliminated 
#2 bits 54-59 1 
48-53 li 

-I (i: 



O 



#3 



41 





(indicates an overlay load) 
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A8 . OVERPL 

1.0 General Information 

This routine, provided for compatibility, is call in 
response to the following FORTRAN statements: 

IF QUOTIENT OVERFLOW n^^ 

IF ACCUMULATOR OVERFLOW n lf n 2 

1.1 Length: 5 

2.0 Entry Points 

2.1 OVERFL 

2.1.1 Calling Sequence and Returns 

Entry Bl - contains address to return flag in 

^# Exit flag » 1 if X6 is out of range 

flag = 2 otherwise 

3.0 Diagnostics: None 

4.0 External Routines: None 
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A9 . PAUSE 

1.0 General Information 

The function of this routine is to display the words 
PAUSE n as a dayfile message and stop program execution 
until the console operator makes an entry to either 
continue or terminate the program in response to the 
FORTRAN statement PAUSE n where n_4 5 octal digits. 

1.1 Length: 22 g 

2.0 Entry Points 

2.1 PAUSE 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to PAUSE. X7 
should contain the number n. 

3.0 Diagnostics 

3.1 No diagnostics are given 

4.0 External Routines 

4.1 No external routines are used. 

5.0 Structure 

5.1 No B registers are used. 

5.2 An MSG request is set up with the message PAUSE n. 

5.3 (PAV) If the MSG request cannot be issued at this 
time, a branch is taken to PAV. Otherwise, the MSG 
request is issued. 

5.3.1 The PAUSE bit is set in RA. 

5.4 (PAX) If the PAUSE bit is cleared, a branch is taken 
to exit. Otherwise, a RCL request is set up. 

5.5 (PAY) If the RCL request cannot be issued at this 
time, a branch is taken to PAY. Otherwise, the RCL 
request is issued and a branch is taken to PAX. 
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A10. REMARK 

1.0 General Information 

The function of this routine is to place a message of 
not more than 40 characters in the dayfile in response 
to the FORTRAN statement CALL REMARK (H) where H is 
a Hollerith specification of not more than 40 char- 
acters. 



1.1 
2.0 



o 



4.1 



^m 



Length: 22 



8 



Entry Points 



2.1 REMARK 

2.1.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to REMARK. Bl 
should contain the beginning address of the four word 
array containing the message to be placed in the day- 
file. 

3.0 Diagnostics 

3.1 No diagnostics are given. 
4.0 External Routines 



CPC 



4.1.1 Calling Sequence and Returns 

The RJ to CPC must be in the lower half of a word. 
The word following the RJ to CPC must contain the 
display-coded name of the called PP program in the 
high order 18 bits and the parameters for that pro- 
gram in the low order 36 bits. Bit 40 of that word 
is the recall bit and bit 41 signifies whether it is 
a file or system action request. Upon exit, control 
is transferred to the second word following the RJ 
to CPC. 

5.0 Structure 

5.1 No B registers are used. 

5.2 The four words containing the message to be placed 
in the dayfile are fetched and stored for the MSG 
request. 
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5.3 The MSG request is set up for CPC. 

5.4 (NOP) A RJ is made to CPC (with the following word 
designating a MSG request with recall) to place the 
message on the day file and then a branch is taken 
to exit . 
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All. SCOPE2B 

1.0 General Information 

This routine is called from a control card SCOPE2B. 
It expects one or two parameters. SCOPE2B <n,efn) 
where n is the number of files and efn is the logical 
file name upon which information is to be written. 
Its purpose is to write loader information on the efn 
which will create a labeled common block, named SCOPE2B, 
large enough to contain FETs for all files in a FORTRAN 
program. This provides compatibility with prior to 
RUN 2.3 binaries because of the expanded length of 
the 2.3 FET. 

1.1 Length: 53g 

2.0 Entry Points 

2.1 SCOPE2B 

2.1.1 Calling Sequence and Returns: None 

3.0 Diagnostics produced. 

3.1 BAD PARAMETER - placed in dayfile if the number of 
parameters is not 1 or 2. 

4.0 External Routines: None 
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A12 . SECOND 

1.0 General Information 



The function of this routine is to return the CP 
time used in floating point seconds. 



1.1 
2.0 
2.1 



Length: 24 
Entry Point 
SECOND 



8 



2.1.1 Calling Sequence and Returns 

Routine is entered by a RJ to SECOND. There are no 
arguments . 

2.1.3 SECOND requests action of PP routines TIM and RECALL. 

4.0 External Routines 

4.1 TIM 

4.1.1 Calling Sequence and Returns 

A request for action by PP routine TIM is initiated by 
placing in location RA+1 absolute 



59 


41 




17 


TIM 


— 


— 


pointer 



The pointer (bits through 17) points at the relative 
address to which TIM is to return the CP time used. 
The value is returned in the form 



59 


35 


11 


zeros 


seconds 


milliseconds 



4.2 



RECALL 



4.2.1 Calling Sequence and Returns 

A request for recall is issued by placing in location 
RA+1 absolute 



59 



41 







o 



RCL 



zeros 
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5.0 Structure 

5.1 AO and all B registers are undisturbed. 
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A13. SEGMENT 

1.0 General Information 



The function of this routine is to form a request to 
the LOADER to load and link/delink program segments 
in response to the FORTRAN call 

CALL SEGMENT (FN, LEVEL, SEG, LIB, MAP) 
where 

FN = variable name of location containing file 
name (in left justified display code) from 
which loading should take place. 

LEVEL = level of segment load 

SEG = Simple or subscripted variable name of 
array containing a list of segments, 
sections or subprograms (in left justified 
display code) to be loaded with this call. 
The list must be terminated by a zero word. 
If the first entry is a zero word, all 
subprograms remaining on the file FN are 
to be loaded. 

The remaining parameters are optional 

LIB ■ if zero or left out, an attempt will be 
made to satisfy unsatisfied externals 
from the system library. 



MAP 



» if zero or left out, a map of the segment 
load will be produced. 



1.1 Length: 131g 

2.0 Entry Points 

2 . 1 SEGMENT 

2.1.1 Calling Sequence and Returns 

The routine is entered by a standard FORTRAN call, 
an RJ in the upper 30 bits of a word followed by the 
traceback information in the lower 30 bits. 



RJ SEGMENT 
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3.0 
3.2 
3.2.1 



3.2.2 



On entry the addresses of the arguments should be in 
the B registers beginning with Bl. Since the number 
of arguments is variable, SEGMENT looks back into the 
traceback information to determine the number of 
arguments passed to it. 

Diagnostics 

Fatal to Execution 

"ARGUMENTS ILLEGAL," ERROR NUMBER 51 will be given 
if illegal names appear in the segment list. Note 
that the failure to terminate the segment list with 
a zero word should cause an illegal name to be found. 

"FATAL ERROR IN LOADER," ERROR NUMBER 51 will be given 
if the loader returns with its fatal error flag set. 



3,3 Warnings 



3.3.1 



4.0 



"NON-FATAL ERROR IN LOADER," ERROR NUMBER 52 will be 
given if the loader returns with its non-fatal error 
flag set and if a map has not been suppressed. 

External Routines 



4.1 LOADER 

4.1.1 Calling Sequence and Returns 

The loader is called by an RJ to loader. The word 
following the RJ must contain the address of the load 
sequence parameter list. Entries in this list are two 
words long, the last of which must be followed by a 
zero word. SEGMENT forms only one entry; this ent nr „ 
is in PARM and PARM1 and is followed by a zero word ZERO. 



RJ LOADER 



l£L 



address of PARM 



ZJ 



17 



PARM 
PARM1 

ZERO 



File Name 



SI 



ZJ 

m < » 
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4.2 



Bits to 17 of the first word of the entry should 
point to the location of the list of segments or 
subprograms to be loaded from the file. If the 
remainder of the file is to be loaded, these bits 
should be zero. 

The loader returns a reply in the load segment para- 
meter list. Bit 37 of the second word is the fatal 
error flag and bit 36 of the second word is the 
non-fatal error flag. 

CIO 



4.2.1 Calling Sequence and Returns 

If necessary a request of CIO is made to empty the 
output buffer and thus correctly position the out- 
put file so that the loader written map will appear 
in the correct position in the listing. The request 
by setting the code and status bits of the OUTPUT 
file FET to 24 g and placing in location RA+1 (absolute) 
the word 



o 



CIO 


FET address 



18 



6.0 



Formats 



The list of segments or subprograms to be loaded 
(third input parameter) must have all trailing blanks 
from legal alphanumeric identifiers at the first word 
of the iist and continues until a zero word is found 
(list terminator) or until an illegal alphanumeric 
identifier is found. 
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A14. SLITE 

1.0 General Information 



This routine is called in response to the FORTRAN 
statement SENSE LIGHTi to turn on the specified 
sense lite. If the lite number is zero, all the 
sense lites are turned off. 



1.1 


Length: 15 g 


2.0 


Entry Points 


2.1 


SLITE 



2.1.1 Calling Sequence and Returns 

The routine is entered by doing a RJ to SLITE. Bl 

is expected to contain the address of the lite number, 

Upon exit no registers are expected set. 

3.0 Diagnostics 

3.1 Informative 

3.1.1 45 8 - BAD SENSE LITE NUMBER is given if the lite 
number is not through 6. 

3.2 Fatal: none 

4.0 External Routines 

4 . 1 SYSTEM 

4.1.1 Calling Sequence and Returns 

Entry XI = error number 

X2 - address of diagnostic message 

5.0 Structure 

5.1 The lite number is checked to see that it is between 
and 6. If not an error message is given. 

5.2 The specified lite is turned on. If the number is 
zero all lites are turned off. 

5.3 The routine then exits. 
6.0 Formats 
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A15. SLITET 

1.0 General Information 

This routine is called in response to the FORTRAN 
statement IP (SENSE LIGHT i)n,n 2 or when SLITET (i 
is used as a function. Its purpose is to turn off 
the specified sense lite. It returns in X6 and in 
the memory location a 1 if the specified lite was 
on or a 2 if it was not. 



1.1 
2.0 
2.1 
2.1.1 



3.0 
3.1 
3.1.1 

4.0 
4.1 
4.1.1 

5.0 
5.1 

5.2 
5.3 



Length: 20 g 

Entry Points 

SLITET 

Calling Sequence and Returns 

The routine is entered by doing a RJ to SLITET. 
Bl is expected to be set to the memory location 
containing the lite number and B2 to the address in 
which the flag is to be returned. If the lite is 
on, it is turned off and a 1 is returned. If it 
was off a 2 is returned. Their value return is 
both through memory and X6 . 

Diagnostics produced. 

Informative 



46 8 - BAD SENSE LITE NUMBER 
number is not between 1-6. 

External Routines 

SYSTEM 

Calling Sequence and Returns 



is given if the lite 



Entry 



Structure 



XI m error number 

X2 » address of diagnostic message 



The lite number is checked to see that it is between 
1 and 6. An informative error is given if it is not, 

The specified lite is turned off. 

1 is returned if the lite was on, 2 if it was off. 
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A16 . SSWTCH 

1.0 General Information 

Routine called in response to the FORTRAN statement 
IF (SENSE SWITCH i)n lf n 2 . 

1.1 Length: 17 

2.0 Entry Points 

2.1 SSWTCH 

2.1.1 Calling Sequence and Returns 

Entry Bl - points to switch number 

B2 - address of variable to return flag in 

Exit flag - 1 if SWITCH i is on 
flag = 2 if SWITCH i is off 

3.0 Diagnostics 

3.1 Informative^ none 
3.1.1 BAD SWITCH NUMBER 

4.0 External Routines 

4.1 SYSTEM 

4.1.1 Calling Sequence and Returns 

XI « error number 

X2 » address of error message 
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A17. START 

1.0 General Information 

This routine is called by the statement CALL START, 
It places the word START in the dayfile. 

1.1 Length: 7 

2.0 Entry points 

2.1 START 

2.1.1 Calling Sequence and Returns 

Entered by a RJ START. No registers are expected 
to be set. 

3.0 Diagnostics produced: none 

4.0 External routines: none 

5.0 Structure 

5.1 A delay is taken until RA+1 is zero. 

5.2 A "MSG" request is sent to the operating system 
specifying "START" to be placed in the dayfile. 

5.3 The routine exits. 
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A18. 



TIME 
1.0 



General Information 

The function of this routine is to write a message 
of up to 50 characters in the dayfile. 



1.1 


Length: 23 


2.0 


Entry Point 


2.1 


TIME 



2.1.1 Calling Sequence and Returns 

Routine is entered by an RJ to TIME. Bl contains the 
address of the first word of the message, or is zero 
if there is no message. 

2.1.3 TIME requests action by PP routine MSG. 

4.0 External Routines 

Calling Sequence and Returns 



4.1 



6.0 



A request for action by PV routine MSG is initiated 
by placing in location RA+1 absolute . 



59 



41 



17 







MSG 



pointer 



The pointer (bits through 17) points at the relative 
address of the first word of the message to be printed. 
This word always contains "TlMEbbbbbb, " and is 
followed by the input message or, if none, a zero word. 

Formats 

The input message must always end on a word boundary, 
and if less than 5 words must be terminated by a 
zero word. 
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IV. Mathematical Library 
A. Library Functions 
Al. ALNLOG 

ENTRY POINTS: 
PURPOSE: 



USAGE: 



METHOD: 



LANGUAGE : 
TIME : 

STORAGE : 

ACCURACY: 



ALOG, ALOG10 

ALOG : Evaluate the natural logarithm 

of a real number. 
ALOG10 : Evaluate the logarithm to base 

10.0 of a real number. 

A ■ ALOG(X) 

A ■■ ALOGIO(X) 

where X is the single precision floating 
point argument and A is the result in single 
precision floating point. 

ALOG10<X) - log 1Q (e)*ALOG(X) 

let X - 2 K *W, 



.5 1 /2<„< 2 1 /2 



log- (X) - K*log (2.0) + log (W) 



(m)- 



2t - Q*t, 

2 

Z - t 



RESTRICTIONS i 



log (W) = log 

Q = n Z + n 2 Z 2 + n 3 Z 3 

d + d Z + d Z 2 + d 3 Z 3 

COMPASS 

28 /is for ALOG 
32 /is for ALOG10 

55 in words. 35 words of program. 
20 words of constants. 

ALOG: In the range of .5«5-X^2 the maximum 
observed absolute error was 3.2E-15 
for values of X outside this range 
the maximum observed relative error 
was 5.8E-15 

If x£0, the result is set to - infinity 
and the normal exit is taken. 
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A3. ATAN 

PURPOSE : 

USAGE: 



METHOD: 



|»ANGUAGE : 
TIME: 
STORAGE : 
ACCURACY : 

RESTRICTIONS : 



EXTERNAL 
REFERENCES: 



Evaluate the arctangent of a real number 

A - ATAN(X) 

where X is the single precision floating 
point input argument and A is the result 
in single precision floating point. 

Let A = ATAN(X), then -PI/2 <A <. +PI/2 

Let P - tan (PI/16) ,T - tan (3PI/16) 

ATAN (W) ■- sign <W) *ATAN (V) , V - ABS (W) 

ATAN(V) = ATAN(R) + C, R, and C defined 
below. 

O^V^P, R - V, C - 0.0 

1/? 
P^V*2 -1, R - (V-P)/(l + V*P), C - PI/16 

1/2 
'2 -1<V<1, R - (V-T)/(l + V*T) , C ■ 3PI/16 

l£v<2 1/2 +l r R = (1-V*T)/(V+T), C = 5PI/16 

2 1/2 + 1<V ,R - (1-V*P)/(V + P), C - 7PI/16 



ATAN(R) - R - R*Q, Z 



3 



n Q + n..Z + n~Z + n^Z 



d Q + dj_Z + d 2 Z 2 + d 3 Z 3 



COMPASS 

32 jis 

60.^ words. 26, „ words of program 
10 10 

In ATAN when |x| ^? .196 the maximum ob- 
served absolute 'error was 4.6E-16, and for 
all other values of X the maximum observed 
relative error was 8.0E-15. 

In ATAN if X is indefinite or out-of-range 
the result is set to indefinite and the 
normal return taken. 



SYSTEM 



O 



o 
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A4 . ATAN2 

PURPOSE: 

USAGE: 



METHOD: 



LANGUAGE: 
TIME: 
STORAGE: 
ACCURACY: 

RESTRICTIONS ! 



Evaluate the arctangent of the ratio of 
two real numbers . 

A » ATAN2(Y,X) 

where X and Y are the single precision 
floating point input arguments and A is 
the single precision floating point result. 

Let B - ATAN2(Y,X), then B is the argument 
of the complex number X+iY and -VI&BSL+VI 



B 



/""sign (Y) *PI/2 
< A 



,X « 

sx ATAN(Y/X) ,X > 

\_ATAN(Y/X)+sign(Y)*PI,X< 



COMPASS 



4 3 JX9 



74.. words, 40, „ words of program 

When IY/x| « .196 the maximum observed 
absolute error was 1.6E-15 and for all 
other values of Y and X the maximum ob- 
served relative error was 3.7E-14. 

If X or Y is indefinite or out-of-range 
the result is set to indefinite. If 
X«Y=»0 the result is set to indefinite. 



EXTERNAL 
REFERENCES : 



SYSTEM 
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A5 . CABS 

PURPOSE: 
USAGE : 

METHOD : 



LANGUAGE : 

STORAGE: 

TIME; 

ACCURACY AND 
RESTRICTIONS : 



Compute the magnitude of a complex number . 

R = CABS(Z) 

where R and Z represent the complex numbers 

Z - X + iY r R - U + iv 

U -■ (X 2 + Y 2 ) 2 ' V - 

The square root function is evaluated as 
described in its procedure write up. 

COMPASS 

30 words, 15 ln words of program. 

21 ^s 

See square root description 
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A7 . CCOS 

PURPOSE ! 

USAGE: 



METHOD? 



LANGUAGE: 

STORAGE: 

TIME: 

ACCURACY AND 
RESTRICTIONS: 

EXTERNAL 
REFERENCES : 



Evaluate the complex valued sine of a 
complex number, 

R - CCOS(Z) 

where Z is the complex valued input argument 
and R is the complex valued result 

Let Z - X + iY, R « U + iV, then 

U - COS (X)*(e y + e-y>/2 

V - sin (X)*(e~ y -e*>/2 

The evaluation of the real valued sine, 
cosine, and exponential functions are 
described in their respective routines. 

COMPASS 

37. words, 21 words of program 

20+EXP+SIN+COS 

See individual descriptions 

EXP, SIN, COS, SYSTEM 
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A8. 



CEXP 
PURPOSE ! 

USAGE: 
METHOD; 



LANGUAGE: 

STORAGE : 

TIME: 

ACCURACY AND 
RESTRICTIONS i 

EXTERNAL 
REFERENCES : 



Evaluate the complex valued exponential of 
a complex number. 

R ■ CEXP(Z) 

where Z is the complex valued input argument 
and R is the complex valued result. 

Let Z = X +iY, R m u +iv 

then 

U ■ cos(Y)*e , V = sin (Y) *e x 

The real valued sine, cosine, and exponen- 
tial functions are evaluated as described 
in their respective procedures. 

COMPASS 

• 27 10 words » 16 10 words of program 
10 jis +SIN+COS+EXP 

See individual descriptions 
SYSTEM, SIN, COS, EXP 
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A9 . CLOG 

PURPOSE: 

USAGE: 

i 

METHOD: 



LANGUAGE: 

TIME: 

STORAGE: 

ACCURACY: 

RESTRICTIONS: 



EXTERNAL 

REFERENCES : 



Evaluate the complex logarithm of a complex 
number. 

W - CLOG(Z) 

where W and Z are the complex valued 
arguments . 

Let Z - X + iY and w » U + iv, 

then U + iV « CLOG(Z) and 

- .5 log (X 2 + Y 2 ), 

V = arctangent (Y/X) , -PI<>V£PI. 

The methods used in evaluating the log and 
arctangent are found in the description of 
ALOG and ATAN2 . 

COMPASS 

10 us + ALOG + CABS + ATAN2 

24 words, 15. words of program 

See descriptions of ALOG, ATAN2 

If Z = 0, U is set to -infinity, V is set 
to indefinite and a normal return taken. 

SYSTEM, ALOG, CABS, ATAN2 
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A10. CSIN 

PURPOSE : 

USAGE: 



METHOD: 



LANGUAGE : 

STORAGE: 

TIME: 

ACCURACY AND 
RESTRICTIONS : 

EXTERNAL 
REFERENCES : 



Evaluate the complex valued sine of a 
complex number. 

R - CSIN(Z) 

where Z is the complex valued input argument 
and R is the complex valued result. 

Let Z - X +iY, R ■ U +iv then 

U - sin (X)*(e y + e~ v )/2 

V> cos (X)*(e y - e~ y )/2 

The evaluation of the real valued sine, 
cosine, and exponential functions are 
described in their respective routine 
procedures. 

COMPASS 

•37 words, 21 words of program 

2-+EXP+COS+SIN 



See individual descriptions 



1> 



EXP, COS, SIN, SYSTEM 



o 
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All. CSQRT 

PURPOSE : 
USAGE: 

METHOD: 



LANGUAGE : 

STORAGE : 

TIME : 

ACCURACY AND 
RESTRICTIONS i 

EXTERNAL 
REFERENCES s 



Compute the square root of a complex number 
r m CSQRT (Z) 

where R and Z represent the complex numbers 
Z - X + iY, R = U + iV 
a = (X 2 + Y 2 ) X/ 2 
b -. [(.♦ |x| ) /2 ] 1/2 
c - Y/2b 

If X>0 U = b and V = c 
X<0 U - c*sign(Y) 
V = b*sign(Y) 

The square root function is evaluated as 
'described in its procedure write-up. 

COMPASS 

29 1Q words, 17 words of program 

16+SQRT+CABS 

See square root description. 
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A13. DATAN 

ENTRY POINTS: DATAN, DATAN2 

PURPOSE: DATAN evaluates the arctangent of a double 

precision number. 

DATAN2, evaluates the arctangent of the 
ratio of two double precision numbers. 

USAGE: A = DATAN (X) 

A ■ DATAN2 (Y, X) , where X and Y are the 
double precision input arguments and A 
is the double precision result. 

METHOD: Let A = DATAN (X), then - PI/2 A PI/2 

Let B = DATAN2 (Y, X) , then B is the 
argument of the complex number X + iY and 

- Pl£rB <PI. 

~Sign (Y)*PI/2 , X=0 *** 

B =< DATAN (Y,X) , X 

tDATAN (Y,X)* Sign (Y)*PI, X4.0 

Let P - Tan (PI/16), T = Tan (3PI/16) 
Let W = A or B as appropriate 
Atan (W) ■ Sign (W) * Atan (V), V - |w| 
Atan (V) - Atan (R) + C, R and C 
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DATAN 



O 



TIMING: 
STORAGE ; 



(continued) 

Defined Below 

o£v<P, R = V, C - 

P<V<.- </77 R = (V - P)/(l + V*P) , C - PI/16 

-VTJpVAl, R - (V - T)/(l + V*T), C - 3PI/16 

l£V <JT? R « (1 - V*T)/(V + T) , "C - 5PI/16 

<nr±v; r = (i - v*p)/cv + p>, c = 7Pi/i6 

Where DATAN (R) is computed from a Taylor- 
Maclaurin polynomial of degree 27. This 
polynomial was telescoped from the Taylor- 
Maclaurin power series of degree 39. 

96 ^s 

201 8 CM words for both DATAN and the entry 
point 

DATAN2. 114g CM words of program. 
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DATAN 
ACCURACY: 



RESTRICTIONS : 



(continued) 

DATANi For 1000 values of X uniformly 
distributed O^.x^.,196, the maximum 
observed absolute error was 4.3 x 10 . 

For 2400 values of X randomly distributed 
,196£x£l000. The maximum observed 
relative error was 2.2 x 10~ 28 . 

DATAN2: Results were the same as for 
DATAN when the denominator was positive. 
For a similar test, but with a negative 
denominator, the maximum observed relative 
error was 5.8 x 10~ 28 . 

If X ■ and Y = 0, the result is set to 
indefinite and appropriate error messages 
are generated. 



EXTERNAL 
REFERENCES : 



SYSTEM. 
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A17. DEXP 

PURPOSE ! 

USAGE 
METHOD : 



TIMING: 
STORAGE : 
ACCURACY: 



RESTRICTIONS : 



EXTERNAL 
REFERENCES : 



Evaluate the exponential of a double 
precision number. 

A = DEXP (X) , where X is the double 
precision argument and A is the double 
precision result. 



Let 



and 



N =1 X/log e (2.) + .5 I , 
R - Rl + R2 - X - N*log e (2.) , |R| £ log e (2 ,)/2 
Rl and R2 represent the more significant and 
less significant parts of R. e x - 2 N *e 
e R1 is evaluated from a polynomial of 
Degree 17. This polynomial was telescoped 
from a truncated MacLaurin power series 
'of degree 20. 
e R2 - 1 + R2. 
81 us. 

136 CM words. 53 Q words of program. 
8 8 

For 5000 values of X uniformly distributed 

in the range I XI £log e (2 .) /2 . The maximum 

-29 
observed relative error was 3.6 x 10 . 

For 5000 values of X uniformly distributed 

in the range 1x1^600., the maximum observed 

' -29 

relative error was 8. x 10 

If X>743, the result A is set to infinity. 
If x$ -675. the result is set to zero. In 
either case, the appropriate error message 
is generated. 

SYSTEM. 
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A18 . DLNLOG 

ENTRY POINTS: DLOG, DLOG10 

PURPOSE: Evaluate the natural logarithm or logarithm 

to base 10.0 of a double precision number. 

USAGE: A = DLOG(X) 

A - DLOGIO(X) 

where X is the double precision input 
argument and A is the double precision 
result. 

METHOD: DLOG 

X - 2 K *W, .5 1/2 * W <« 2 X /2 

log e (X) = K*log e (2.0) + log e (W) 

log e (W) is approximated by a by the ^~\ 

.equation c 1 *t + c 3 *t 3 + c 5 *t 5 + c ? *t 7 , t - 

(W-1)/(W+1), (Hastings, Approximations for 

Digital Computers , Princeton, University 

Press, 1955), which yields about 32 binary 

digits of accuracy. Two Newtons iterations 

are done to yield the double precision value 

of log (W) . The iteration formula for 

f(a) = e a - X = is 

■n+l^n " (1 " x * e " an > • 
The term e~ ao is calculated in double 

Rl 

precision using the same coding as e in 
DEXP. Let R = Xe" ao and T = 1.0 -R, 



Rl, Tl, R2, T2 denote the 2 significant 
parts of R and T. Led a = a. - Tl 
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—a 
a, ■ a-, - (1 - Xe o+T^ 



o 



LANGUAGE : 
TIME: 

STORAGE: 
ACCURACY: 



RESTRICTIONS; 



2/2 3 

■ Ac - Tl - (1 -R*(l +T1 +T1 ' + Tl /6)> 



z 2 - a] _ 

"O 

2/o 3 

- a d - Tl - (1 -R - R*T1 - R*T1 ' * - R*Tl /6) 

1 - R = Tl + T2 

R*T1 = Tl - Tl 2 - T1*T2 « Tl -Tl 2 
R*T1 2/2 = Tl 2/2 - Tl 3 / 3 - Tl 2 * T2/2 
a T l 2 /2 _ Tl 3 /2 

R*Tl 3/ 6 m Tl 3 /6 _ Tl 4 / 6 - Tl 3 *T2/6 - Tl ^ 6 

where the underlined terms are ignored be- 
cause they are insignificant with respect 
to the desired accuracy of the final result. 

a » a^ - Tl - T2 - Tl 2 (1/2 + Tl/3) 

i. o 

which is the actual computing formula used. 

DLOG10. log 1Q (X) = log 10 (e) *log e (X) 

COMPASS 

96 /is DLOG 
100 ^is DLOG10 

126 words 

DLOG and DLOG 10 

For 2000 values of X uniformly distributed 
in the range . 5isx£2, the maximum observed 
absolute error was 2.4E-29. For 2000 values 
of X r X<.5 and X>2, the maximum observed 
relative error was 2.1E-29. 

DLOG and DLOG10 

If X =0, the result is set to -infinity, 
if X^0 the result is set to indefinite. 
For both cases a normal return is taken. 



EXTERNAL 
REFERENCE : 



SYSTEM 
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A21. DSINCOS 
PURPOSE: 

USAGE: 



METHOD : 



Evaluate the sine or cosine function of a 
double precision quantity. 

A DSIN (X) , A = DCOS (X) , where 

X represents the double precision input 
argument and A represents the double 
precision result. 



- X/(PI/2) + .5 , 



, and 

then |r| __ PI/4. 



Let N ■ | X/(Pl/2) 

R « X-N*PI/2, 

Let K = N Modulo 4, K=0, 1, 2, 3. 

Then Sin (X) - Sin (R + N*Pi/2) = 

Sin (R + K*PI/2) = sin (R) * Cos (K*Pl/2) + 

Cos (R) * Sin (K*Pl/2) and a similar 

formula for Cosine (X) . Depending upon 

whether Sine (X) or Cosine (X) was wanted 

and upon the value of K, either the Sine 

of Cosine of R is evaluated and complemented 

if necessary 

The Sine and Cosine of R are evaluated by 

polynomials of degree 21 and 20 respectively. 

These polynomials were telescoped from a 

truncated Taylor - MacLaurin power series 

of degree 25 and 24. 






o 
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DSINCOS 
TIMING: 
STORAGE | 



«o 



RESTRICTIONS ; 



EXTERNAL 
REFERENCES i 



(continued) 

73 /is 

172 g CM words, 77 g words of program. The 

maximum observed absolute error of DSIN 

and DCOS for 10,000 values of X,| X |£pi/4 

-29 

was 2.7 x 10 

For 2000 values of X, PI/4<|xUl0PI, 

The maximum absolute error was 6.21 x 10"*. 
The absolute error for other values of X 



.29 



will be 2^6.9 x 10 



-29 



w 



*2" 50 *10~ 29 



If |X|^ Pi*2 94 the result is set indefinite 
and appropriate error messages are generated, 



SYSTEM. 
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A22. DSQRT 

PURPOSE : 

USAGE : 
METHOD: 



TIMING : 
STORAGE : 
ACCURACY: 

RESTRICTIONS : 



EXTERNAL 
REFERENCES : 



Evaluate the square root of a double 
precision number. 

A - DSQRT (X) where X is the double precision 
input argument and A is the double precision 
result. 

Let 2 N *W = more significant half of X, 

,5£w<l, N m 2K + r, r*N>0, 

r « -1, 0, +1, then 

x l/2 m 2 K *2 r / 2 *W 1/2 . 

Let B ■ .585786W + .420495 be the initial 

1/2 
guess to W and C be the result of two 

Newton's iterations done in single precision, 

•Then S = 2 K * 2 r / 2 * C differs from X 

by approximately 10 -9 * 2 K . To get the 

1/2 
double precision value of X two Newton's 

iterations are done in double precision 

using the equation 

A n + l =A n- (A n 2 ' x > / 2A n with A o " S - 
32.5 ps 

57„ CM words 32 words of program 
8 8 

The maximum observed relative error for 
100,000 arguments uniformly distributed 
,25<x<4. was 1.2 x 10~ zy 

If X<0, the result is set to indefinite 
and appropriate error messages are 
generated 

SYSTEM. 






CA 138-1 REV 10-87 



o 



DOCUMENT CLASS. 



PRODUCT NAME 

PRODUCT MODEL NO. 



CONTROL DATA CORPORATION 



/S~f 



IMS 



— DIVISION 

PAGE NO IV-A23 



RUN 2.3 - OBJECT LIBRARY 

CglO * 2.3 MACH1NE SERIES 64/65/6600 



o 



A23. EXP 

PURPOSE s 
USAGE: 



METHOD: 



TIMING : 
STORAGE: 
ACCURACY : 



I&ESTRICTIONS : 



EXTERNAL 
REFERENCES : 



Evaluate the exponential of a real number 

Function call, A - EXP(X), where X is the 
single precision floating point argument 
and A is the result in single precision 
floating point. 



Let N - 1 X/log (2 



R 



I X/log e (2.) + .5 J , and 
X - N*log e (2.), then |R|<-log e (2.)/2 



.X 



and e* - 2N*.e*. 

e R • 1 + R + Q, where 

Q - R*(R*B - Z*T) / (2*B + Z*T - R*B) 

Z=R 2 , T=28.*Z+ 2520., and 

B - Z 2 + 420. *Z + 15120. 

• 30 ^s 

57 CM words, 34 g words of program. 

The maximum observed relative error for 
70,000 values of X uniformly distributed in 
the range |x|<..347 was 3.8 x 10** 15 . The 
maximum observed relative error for 4 35,000 
values of X uniformly distributed over the 
range - 675^x4.741 was 5. x 10" 15 

The result A is set to zero if x£- 675.82, 
and is set to + infinity if X>741.67. 

SYSTEM. 



© 
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A29. SINCOS 

ENTRY POINTS: 
PURPOSE: 

USAGE: 



METHOD : 



LANGUAGE : 
TIME: 
STORAGE : 

ACCURACY: 



SIN, COS 

Evaluate the SINE or COSINE function of a 
real number. 

A m SIN(X) . 

A = COS(X) , 

where X is the single precision floating 
point input argument expressed in radians 
and A is the result in single precision 
floating point. 
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Let N = I X/ (PI/2 + .51 , and 

r = x - N*Pl/2, then *]r| < pi/4. 

Let K - Nmod4, K - 0, 1, 2, 3, then 

sin(X) - sin(R + N*PI/2) - sin(R + K*PI/2) 

= sin(R)*cos(K*Pl/2 + cos(R)*sinK*Pl/2) 

and a similar formual for the cosine (X). 

Depending upon K, either the sine (K » f 2) 
or cosine (K = 1,3) of R is evaluated and 
complemented if necessary. 

The sine and cosine of R are evaluated by 
polynomials of degree 11 and 12, respectively. 
These polynomials were telescoped from a 
truncated Taylor-MacLaurin power series of 
degree 15 and 14. 

COMPASS 

27.3 jis 

63 words, 39 words of program, 24 words of 
constants and error messages. 

The maximum observed absolute error for 
10,000 values of X uniformly distributed 
in the basic range |x| £ PI/4 was 5.3E - 15 
for both the sine and cosine. The maximum 
observed absolute error for 20,000 values 
of X uniformly distributed in the range 
JX|<31.4 was 6. IE - 15 for both the sine 
and cosine. 
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SINCOS 
RESTRICTIONS: 



(continued) 

If X>1.1E14 the result is set to indefinite 
and an error message generated. The 
program tests for an infinite or indefinite 
argument and if either condition exists, 
the appropriate message is generated. 



EXTERNAL 
REFERENCES : 



SYSTEM 



o 
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A31. SQRT 

PURPOSE! 
USAGE: 



METHOD : 



LANGUAGE : 
TIME: 
STORAGE : 

ACCURACY : 



RESTRICTIONS: 



Evaluate the square root of a real number. 
A = SQRT(X) 

where X is the single precision floating 
point input argument and A is the result 
in single precision floating point. 

Let X = 2 N *W, .5<- W<1, 

N » 2K + r, r*N 0, 

r = -1,0, +1, then X 1/2 = 2 K *2 r / 2 *Wl/2 

Let B » .585786437W + .4204951288 be the 
initial approximation to Wl/2, 

Let C = result of two Newton's iterations 
using B as the initial guess to Wl/2, then 

4C = (B2 + W ) 2 + 4B 2 W 
B(B 2 + W) 

D*^* 2X1/2 "^2 K "" 1 2 r /2 (4C) 

1/2 
A = X = .25*D + X/D 

COMPASS 

21.0 ps 

35 words. 28 words of program. 13 words 

of constants and error messages. 

The maximum observed relative error for 
2 00,000 arguments uniformly distributed 
between .25 and 4.0 was 3.5E-15. 

In addition 199,999 of the 200,000 results 
gave exact agreement with the true value 
when it was rounded to single precision. 

If the argument is negative, out-of-range, 
or indefinite, the result is set to 
indefinite and a normal return is taken. 
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A3 3. TANH 

PURPOSE : 

USAGE: 



METHOD: 



TIMING: 
STORAGE : 
ACCURACY: 
RESTRICTIONS : 



EXTERNAL 
REFERENCES : 



Evaluate the hyperbolic tangent of X. 

A <■ TANH (X) where X is the 

single precision floating point argument 

and A is the result in single precision 

floating point. 

For X = 0, TANH (X) =0. ^_ ' -i 

For 0<|x| < 17.61, TANH (X) = [j 5 ^^ ' U + J 

For Ixl > 17.61, TANH (X) is set to 1. 

44 ^ts. 

45 CM words. 20 o words of instructions. 
8 4 

^1.4 x 10~ on the average. 

If |x| is indefinite or out of range, the 
result is set indefinite and appropriate 
error messages are generated. 

EXP, SYSTEM. 
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. EXIT . * ♦ 

............. * ♦ 

* ♦ 

LOOP ♦ » 

...•••.••••«..... +♦ 

• MOVE FILE NAMES. » ♦ 

• FROM RA*"l THRU . * » 
.RA»<t*N TO RA*2 . * ♦ 
. THRU RA*2»N . * » 
,....■«.*»••..■•« * * 

••••.•......•.... * 

. FETCH PROGRAH . » 

. LENGTH LESS . ♦ 

. SUFFERS. ASA . ♦ 

•SWITCH, ♦ FIRST. » 

.HORD OF PROGRAM. » 

* * 

••.••••■••*...... * 

.FNA BUFF£R=FHA . • 
. OF PROGRAH ♦ .>>»>»♦ 
.PROGRAH LENGTH . 



*<<<«««<<<<<<«< 



.• NO. OF ». YES 
. ARGUNEHTS ••>»»» 
». »0 .» 



» ». NO 

SEE NOTE 2 .•»»»> 



NO. OF «. YES 
ARGUHENTS .•»»>* 
=0 .• * 



.FETCH EXECUTION. 
FILE NAHE . 



DECREMENT 
. ARGUMENT CTR 
BY ONE 



* 

» ONEU 



.FETCH COMPILED 
FILE NAME 



.• EO.UIYA- •. YES 
». LENCEO FILE .»»»> 
». NAME .* 



*<««<<<<<<<<<< 



FETCH 
EQUIVALENCEO . 
FILE NAHE 



SAVE BUFFER 
AOORESS 



S4? 



NOTES 

1. CURRENT FET IN SCOPE? COMMON BLOCK 



A-Cl. 



o 



.STORE EXECUTION. 
. FILE NAME IN . 
.1ST WORD OF FET. 



YES .» EXECUT. 
««««<». FILE NAME 
•. SPECIF. . 



.STORE COMPILED . 
. FILE NAME IN . 
•1ST HORO OF FET. 



» QCOHP 

.STORE COMPILED 

. FILE NAME AND 

. FHA OF FET AT 

RA*2»N 



* 

* ETIX 



. FETCH ADDRESS . 
.OF RETURN JUMP . 



•FETCH E/E LINE . 

OF 
.CALLING ROUTINE, 



.» CALLING •. YES 
». ROUTINE A .»>»» 
». SUBPROG •• 



.» CALLING •• TES 

•. ROUTINE A .»>»>>>»»>>>. FETCH 
». PROGRAM .» . PROGRAM NAME 



♦<<<«<<<<<<<<<< 



.* IS ». YES » 

• RA + 1 • »»»>» 

*. BUSY .♦ 



PLACE MSG 

INFORMATION 

IN RA+1 



*<<<<<«<<«<«<<< 



IS ». YES t 

RA*1 .»>»>>t 

BUSY .• 



PLACE ABT 
IN RAH 



BUILD 
FET 



FHA OF NEXT 

FET=FNA*17 OF 

CURRENT FET 



SAVE ENO-NAHE 
FORMAT 



SET UP 
MSG COOES 



o 



YES .» • 

«<<<», SEE NOTE 1 



FHA OF NEXT . 
FET=LHA-17 OF , 

BUFFER 



.». OTNT 
• * •. 

NO .» ANY •. 

+<<<<<». MORE 

+ •. BUFFERS .» 



SET UP 
MSG COOES 



*<<««««<<<«««<< 



IS 


•• YES ♦ 


RA»1 


. •»>>>>♦ 


BUSY 


, • 



.*. EHA » 

.* •. » 

.* IS •. YES • 

. RA4-1 .•»>>>♦ 

•. BUSY .» 



SEND MSG CALL 



RJ SYSTEM . 

ENO ALL OUT . 
PUT BUFFERS . 



SET ENO COOES 



>>»>>>>»>>»>♦ 



STORE A HORO 
OF ZEROS 



SEND EXIT 

MFSSAGE 



.*. EOUT » 

• • •• • 

IS ». YES » 

RAU .»>>>>>» 

BUSY .• 
*. .* 



CALL ENO 



o 



/6T 



o 



a-ci. > 



FETCH »N0 

STOKE LAST 

ENCOUNTERED 

ERROR NUHBER 



STORE IN 
.DISPLAY CODE - 
. OETECTED BY 
. (PROG NAME) 



. SET UP 

, HSC COOES 



»»»>>»»>>* 



♦ YES .» IS 

*>««<«•, RAH 

•. BUSY 



FETCH FIRST 

PARAMETER 

IF/NFI 



GET ERROR 
TABLE LENGTH 



FETCH ERROR 
NUHBER 



ERROR •. NO 
OUT OF .•»»>»> 
RANGE . • 



>>»>>»»»»>>>>>« 



FETCH ERROR 
TABLE ENTRY 



NO . • CHANGE 
<««». FATAL/NON- 
•. FATAL 



CLEAR F/NF 
INOICATOR OF 
TABLE ENTRY 



IS ». YES 

F/FN NON- .»>>>>> 
. FATAL .» 



SET FATAL BIT . 



* COOl 



.SENO MSG COOES 



. FETCH SECOND . 

PARAMETER 
.(PRINT FREQ PF). 



.SAYE VALUE SENT. 
. FROH PROGRAM . 



SET UP 
HSG CODES 



+<<<<<<<<<«<<<< 



.♦ IS ». YES » 

• RA+1 .»>>»>♦ 

•. busy •• 



SENO MESSAGE . 



o 



»»>>>>>»>>»>* 



» yes .* is •• 

»«<<<*• RA4-1 . 

". BUSY •• 



. CLEAR PF AND 
.INCREMENT FROM 
. TABLE ENTRY 



SENO MESSAGE 
ADDRESS 



» IS ». YES 

CHANGE .•>»>>» 

>. NEEOED .• 



(ABORT JOBI 



»<<<<<<<<<<<<<« 



SAVE THE 
PF (B BITSl 



SET INCREMENT 
= ZERO 



IS •. NO . . FETCH THIRO . 

PF*0 .*>>>>»>»>>>>• PARAHETER . 

.» . (INCREMENT) . 

• . . » •■.■■•.•••■■■«..« 

» + 

*YES ♦ 

» * 

. . ON PG l> 

. " . . A . 

. cooz . 



/£t 



»-ci. 4 



o 



IS 


». NO 


CHANGE 


.»>>>>> + 


NEEDED 


.* * 



* 

* SYS100 



PACK AND SAVE . 
81-B3 



FETCH ERROR 
NUMBER 



VES .» NEVER 
<<<<<». PRINT 



.SAVE AG ANO B7 . 



FETCH ANO 
TRANSFER 
E/E LINE 



* NO * 
t * 
+ ♦ 

..•■..•••■«■•*... + 

. SAVE 8 BIT . * 

INCREMENT . * 

...■■■■■••*.....« + 

* * 
+ * 

* * 

* C002 * 

POSITION . * 

INCREMENT . * 

+ * 

* * 
.. .••....•••.• ... * 

.ADO PF AND ITS . * 

► . INCREMENT AND . ♦ 
', . INCREMENT TO . <■ 

. TABIE ENTRY . * 

> * 

1 C003 

. FETCH FOURTH . 
PARAMETER . 
(PRINT 
, LIMIT PL> 

* 

»* *» 

.» IS ♦. NO 

». CHANGE .»>>>>>* 

». NEEOEO .• » 

». .* * 

» t 

*YES * 

t * 

....... .......... * 

. CLEAR PL AREA . ♦ 

OF ERROR . * 

. TABLE ENTRY . * 

* + 

t * >> 

.». * ♦ 

,» », * ♦ 

YES .» IS •. * » 

*«<<<*. PL=0 .* * * 

+ *. .* + ♦ 

+ *. .* * ♦ 

t » + ♦ 

* *NO ♦ ♦ 

* * ♦ ♦ 

* * * * 

* * ♦ 

* .ADO PL TO ERROR. * ♦ 

* . TABLE ENTRY . * » 
4- * * 

* * + ♦ 

* C005 ♦ 
* 

. FETCH FIFTH . ♦ 
.PARAMETER [NON-. ♦ 
. STO ADDRESS! . t 
•••••■•■■••••■■•• ♦ 

* • 

* * 

.» ». » 

,» IS ». NO t 
». CHANGE .»>>»>»t 
». NEEDEO .» 

* 
♦YES 

+ 

. CLEAR TABLE .>>>>>>>>> 
. ENTRY ADDRESS . 



>>»>>>>>>>>»>»* 



PUT NON-STO 
ADDRESS IN 
TABLE ENTRY 



* CO 06 

. FETCH SIXTH 

PARAMETER 
. (TRACE-BACK 
LIMITI 



.• IS •. MO 

CHANGE .•>>>>> 

•. NEEOEO .• 



SAVE LIMIT 



* COOT 



. RESTORE ERROR . 
. TABLE ENTRY . 



FETCH OUTPUT 

BUFFER PARAM 

ADDRESS 



FETCH RA»2 



. SAVE AOORESS 
. OF MESSAGE 



»<<<<««<<«. FETCH MSG 

ADDRESS 



•• OUTPUT •. NO 
*. FILE FOUNO .•»>>>>» 
•. ALREADY .» 



»>>>>>>>>>>>>>>>>>* 



»<<<< <<««<<<<<< 



FETCH 
. OUTPUT COOES 



♦<<<<<<<<<<<<<<<< 
.". SYS52 
«• *• 

.» IS •. YES 

». THERE OUTPT .♦>>»>>»>t 
•. FILE .• 



FETCH 
.BUFFER ADDRESS 



FETCH FIRST 

BUFFER 

PARAMETER 



FETCH OUTPUT 
FILE AODRESS 



. FETCH RA»2»N 



NO .♦ WAS » 
»<<<<<<<•. OUTPUT FILE 

♦. FOUNO .* 



SAVE BUFFER 

PARAM AOORESS 



•0 



o 



Z4.7 



o 



>SVSTEH< 



>>>>>»>>>>>>>»* 



A-Cl, 



. INCREMENT 
.DETECTION TOTAL. 



ISOLATE 

ERROR NUMBER . 



MO .» SPECIAL •. 
«««<«<««««««<*» CALL FROM • 
•. ENO •» 



SAVE ERROR 
NUMBER 



YES .* ERROR 
»«<<<», NUMBER 
* ». SPECIF. 



•. YES 
PRINT .»»>»>* 



>>»>>>>»»>»+ 



. .». SCM 



THERE •• NO » 

TIME TO .»>>»>* ♦ 

PRINT .♦ ♦ ♦ 

». .• * ♦ 

• * » 

»YES ♦ ♦ 

.». * * 



♦«<<<<<<<<<<<<< 



YES .* ERROR •• 
»«<«». NUMBER IN •• 
t ». RANGE •• 



SET ERROR 

NUMBER TO 

. LAST ERROR 



>»>»>>»»>>>* 



O 



FETCH ERROR . 
TABLE ENTRY . 
(ETE1 



. GET PF, PFI, . 
.AND PL FROM ETE. 



. ves 

t » 



MAS ». 

PL BEEN 
». REACHED •• 



♦ * 

t > 

♦ * 

t . 

♦ + 

♦ * 

♦ » 

♦ * 

♦ * 



CLEAR PFI 



.SET PRINT FLAG . 



♦ ♦ 



* ♦ 

♦ ♦ 



* * 

* * 



* » 

* ♦ 

* * 

* » 

* ♦ 

* * 



YES . 



IS 

PFJO 



NEVER 
PRINT 



•. YES » ♦ » 



GET ERROR 
.OETECTION TOTAL. 



» sss » 

<«<<1" INCREMENT PFI . • 



.'. SOS 



. YES ♦ 



>»>>>>>»>>>+NO<< <««««< ««««<< 

♦ SGI 



.• ALWAYS •• YES » 

•. PRINT .•>>>>»* ♦ 

•. .* ♦ * 

*. «• * * 

% ' ♦ ♦ 

♦ NO ♦ » 
.♦. • ' 

.« ». » • 

YES .» TOTAL •• * * 

«<<<•. « PFI •• ♦ ♦ 

«, .• ♦ « 

•. -• * * 

» ♦ ♦ 

*NO<<<<<< <<<<<< ♦ 

. » 

• SRT t 
• ,...'•■....•..* * 

IsET PRINT FLAG . * 

. .............. ♦ 

♦ • 

* ♦ 

«. » 

» STP * 

....■•......•..•. * 

.GET ERROR TOTAL. » 



CLEAR 
PF ANO PFI 



» ERROR *. MO » 

TOTAL TOO .»>>>»»t 
•. GREAT .• 



SAVE MESSAGE 
ADDRESS 



RJ TO HNK 

DOUBLE 

SPACE 



FETCH ADDRESS 

OF DIAGNOSTIC 

MESSAGE 



RJ TO MNX 

PRINT 

DIAGNOSTIC 



GET ERROR 
NUMBER 



.RJ TO OCTOEC 

CONVERT 
.ERROR NUMBER 



•SAVE » POSITION. 
. ERROR NUMBER • 



.SAVE FIRST LINE. 
. OF MESSAGE 



. COMBINE ERROR . 
.NUMBER KITH 2ND. 

UORO OF 

MESSAGE . 



/£ J> 



»-ei. 



>S»STEN< 

NOTES 



HON- STANDARD RECOVERY 



SAVE 3RD WORD 
OF MESSAGE 



FETCH CALLING 
ROUTINE NAME 



SAVE AOORESS 

OF CALLING 
ROUTINE NAME 



SAVE NUMBER 
OF ARGUMENTS 



RJ TO NAME 

ADD BLANKS 

TO NAME 



SAVE CONTENTS 

OF CALLING 
ROUTINE«S RJ 



COMBINE NAME 
WITH MESSAGE 



FETCH AND 
"OS1TION 
.RETURN ADDRESS 



.RJ TO OCTDIS 

CONVERT 
. AOORESS 



.COMOINE ADDRESS. 
. WITH MESSAGE . 



GET ADORESS 
OF MESSAGE 



RJ TO HNX . 
GO urttf . »» 
MESSAGE 



• *• 
.• •. 
.» CALLING •. YES 
«. ROUTINE A .»»>»* 

•. PROGRAM .» * 

*. .» * 

» + 

*N0 * 

* + 

* * 
■■■•a. ■••**...«. a * 

. FETCH TRACE . * *«< 

. BACK MAXIMUM . * * 

. ■•■••■•••■•»•••• * * 

♦ » ♦ 

•■••.•••••«■•*••• * * 

. FETCH AOORESS . ♦ ♦ 

. OF NAME OF * ♦ 

.CALLING ROUTINE. » ♦ 

■■■a.. ...■• ...... * * 

♦ + ♦ 

* KNIK '♦. 

.FETCH E/E LINE . ♦ 

OF » 

.CALLING ROUTINE. ♦ 

..... ...... ...... ♦ 

• * 
+ ♦ 

* ♦ 

• ♦ 
•■■.....•.•■....• ♦ 

FETCH RJ . ♦ 



• LEGIT. ». NO » 
TRACE HACK .•>>»»>>>>» 

•. SPECIF. .• 



FETCH CALLING 
ROUTINE NAME 



SAVE AOORESS 
OF NAME 



FETCH FIRST 
HORO OF 
MESSAGE 



. STORE HORO IN 
.MESSAGE BUFFER 



RJ TO NAME 

ADD BLANKS 

TO NAME 



COMBINE NAME 

KITH MESSAGE 

ANO STORE 



RJ TO HNX 

GO PRINT 

HESSAGE 



,>>>>>>>>>>> 



>>>>>>>>>>>>>>>>»* 



.• TRACE •. YES 
». BACK COM- ,»>»>>» 
». PLETEO .♦ * 



NO .» CALLING ». * 

««<««». ROUTINE A .* * 

•. PROGRAM .» 4 



»>»»»>>>>>>»*YES<<< <«<<<<< 

* 

* SYS3 

FETCH ETE*"" 



.<<<<<-. SEE NOTE 1 .• 



*YES< <<<<<<<<< 



>>>»>>»>>>>>>>* 



.» HON ». YES 
». FATAL .»»>>> 
•. ERROR .» 

« # , « 

* 

♦ NO 
»■ PES 


. RJ TO SYS»« . 
. PRINT ERROR . 

SUMMARY 


* 
* 
* 


. RJ TO SYS« . 

. END ALL OUT- . 

. PUT BUFFERS . 


* 


. FETCH LAST 

. ENCOUNTERED . 

. ERROR NUMBER . 



SET MSG CODES 



. STORE MESSAGE . 

IN 
.MESSAGE BUFFER . 



+<<<<<<<<<<<« 



.• IS •. YES * 

♦. RAH .•>>>>>• 

•. BUSY •• 



SEND MESSAGE .>>>>>>> 



o 



o 



>>»>»>>>>>>>>>« 



. SET ABT COOES 



•<<<<««<<<<<<<< 



.• IS •. YES ♦ 
RA+1 .»»>»♦ 
•• BUSY •• 



SENT ABORT 
REQUEST 



o 



/6f 



o 



a-ci. 1 



>S»STEM« 

NOTFS 

1. HON FATAL ERROR U/0 MON-STO RECOVERY 

». RJ TO OCTOFC. CONVERT ERROR NUMBER 10 OISPLAY CODE 



FETCH STORED 
81. BZ, 83 



SAVE 
ERROR NUMBER 



NO 


• • 


IS 


«««* 




A/NA BIT 




* 


ON 



•RJ TO SEARCH 
. FIND tux. 
. T»BLE ENTRY 



>»»>>>>>»»» 



RESTORE 
. Bt. BZ. ♦ B3 



RESTORE 
AO ♦ 97 



NO .• • 

<<<<». SEE NOTE 1 



»>»»»>>>»»+ 



GET ETE 

ADDRESS 



GET MESSAGE 
ADDRESS 



GET CONTENTS • >»» 
OF RJ HORO 



FATAL •. TES 
ERROR .»»»> 



♦ NO 



. FETCH ♦ STORE . 
.ADDR. 1ST EXE- • 
.CUTABl INSTRUC. 
.OF NOM-STD RE- . 
.COVERY ROUTINE . 



•FETCH RJ ♦ SAVE. 
.IN E/E LINE OF . 
. RECOVERY 
ROUTINE 



;XIT TO MON-STO RECOVERY 
ROUTINE 



*«<«««<«* 



. FETCH ♦ STORE 
.AOOR. 1ST EXE- 
.CUTABt INSTRUC. 
.OF NON-STO RE- 
.CDVERY ROUTINE 



. SET RETURN TO . 

. SVSTEH IN E/F . 

.OF NON-STANOARO. 

RECOVERY 

ROUTINE 



.JUMP TO NON-STO. 

RECOVERY 

ROUTINE 



FETCH MESSAGE 
ADDRESS 



SET MSG COOES . 



*<<<«<<<<<<«<<< 



IS 


•. YES ♦ 


RAH 


,»V>»>* 


BUSY 


.» 



.• SPECIAL *. NO 

END .»»»> 
•• ENTRY .• 



»<<<<<<<<<<<<< 



ISOLATE 
ERROR NUMBER 



.• ENO •. NO 
. OUTPUT .♦>>>>> 
•• BUFFERS •• 



»««<<<«««<<<«< 



FORM » SEND 
HSG CALL 



GET 
ERROR NUNBER 



SEE NOTE 2 



SAVE 

ERROR NUMBER 



. STS3 . 



/?6 



»-«. * 



FETCH RA« 



.♦. SYS6 
• • »i 

NO •• «LL ». 

»<<<<<•, FILES .• 

* ". CLOSED .* 

* ». •• 

* » 

* *tes 



>»>>>>>>»>»»* 



GET a« 



BET FH OF FET . 



. GET LONER 3 . 
•BITS OF STATUS . 



. GET UPPER It 
•BITS OF STATUS 



FETCH RA»!tN . 



.» BUFFER •. HO 
'. TERHINATEO .•>»>> 
•. ALREADY .• 



>>*>>> >>>>>»>»»YES 



«<<<<<<<<«««« 



♦ YES .• NOT ». 

♦ «<<<•. OUTPUT . 

•• BUFFER .» 
•• •• 

♦ NO 



.* IS ». TES 

•. BUFFER HOT .»>»>>» 
». BUST •• 



.ENTER RECALL 



.>>»►» 



« 

* SYSS 



SET EOF 
BUFFER STATUS 



o 



•SET EOF STATUS . 
. IN KORO ILFN . 
. .♦ EOF STATUS . 



FORM 
FUNCTION CODE 



SET CIO COOES 



STORE HEN FH 
IN FET 



FORN CIO CALL 



CHAR CTR * 7. 



REMOVE NUMBER 
OF ARGUMENTS. 



RJ TO STSat 

PRINT ERROR 

SUMMARY 



. RJ TO STS« 

END ALL OUT- 
. PUT BUFFERS 



»<<<««<«<«<«< 



IS •. TES ♦ 

RA+1 .»»»»>* 

BUST .• 



»>»>»»>»»+ 



GET ONE 
CHARACTER 



EXIT 



CHARACTER .»»»> 
. ZERO .• 



INSERT BLANK. 



*««<«««<««<«<4 



OECRENENT 
CHAR CTR 



NO .• IS 

««<<•. CHAR CTR 
•• ZERO 



♦««<«<«««««««« 



. RJ TO XRCL 
.CHTER RECALL 



•• IS ». TES 

. BUFFER .•»>>>» 

•• BUST •• 



REESTABLISH 

BUFFER 

PARAMETER 



o 



/7/ 



A-Cl. 1 



o 



CLEAR ERROR 

DETECTION 

TOTAL ARE* 

OF ETE 



RESTORE ETE 



.SAVE PRINT FLAG. 

ANO 
. ERROR NUMBER . 



.RJ TO OCTDEC 

CONVERT 
•ERROR NUMBER 



■ PLACE MESSAGE . 
.IN MESSAGE BUF.. 
,*ERPOR NO. XXXX.»>» 

OETECTEO 
. ".096 TIMES* . 



>>>>»>>>>>»>>>+ 



. RJ TO NNX 

GO HRITE 
. MESSAGE 



o 



.INCREMENT = ONE. 



>»>>>>>»>>>>♦ 



. FETCH AUX ETE . 



EXTRACT ERROR 

NUHBER FROM 

AUX ETE 



INCREMENT » 
INCREMENT » 1 



NO .» ERR NO. •• 
<««•• HATCH AUX . 
•. ETE E/N •• 



SAVE AOORESS 
OF AUX ETE 



.• ». TES 

». PRIMT .•>»>>> 



*<«<««<«<<< 



GET ADDRESS . 
OF DIAGNOSTIC . 
MESSAGE 



FETCH OUTPUT 
BUFFER PARAN 

ADDRESS 



YES .• NO 
<««<«*. OUTPUT 
». FILE 



GET ERROR 

NUMBER 



.• HERE •. TES 
ERRORS .•»>>►> 
•. FOUNO .» 



>>>>>>»>>»>>>*NO 



*<<<<<<<«<<<<< 



. FETCH AODRESS . 
. OF MESSAGE 
.(ERROR SUMMARY*. 



. RJ TO mx . 
.PRINT MESSAGE. 



FETCH ADDRESS . 
OF MESSAGE .»>»>: 

•ERROR TIMES* . 



>»»»»>>>>»>>>* 



. RJ TO NNX . . 
.PRINT MESSAGE. 



•CLEAR LAST HORO. 
. OF MESSAGE 



* . ♦ 

4. STSB9 t 

FETCH ETE . ♦ 



GET ERROR 
DETECTION 



» ♦ 
t •< 



ERROR •• YES ♦ 
NEVER OE- ••>»i*>t 
. TECTEO •• 



•RJ TO OCTOEC . 

CONVERT OE- 
•TECTION TOTAL. 



. INSERT BLANKS . 

BEFORE 
.OETECTION TOTAL. 



.STORE OETECTION. 

TOTAL 
. IN MESSAGE 



.RJ TO OCTDEC 

GO CONVERT 
.ERROR NUMBER 



INSERT BLANKS . 

BEFORE 
ERROR NUMBER . 



STORE ERROR 

NUMBER 
IN MESSAGE 



SAVE ADDRESS .>>>>>>»»> 
OF MESSAGE . . 



»>>>>>>>»»>>>>>* 



. RJ TO NNX . 
•PRINT MESSAGE. 



.«. SYS87 
• • *■ 

NO .» ALL •• 

<«««•• ETE*S BEEN .• 
». CHECKEO .» 



/7JL 



vet 10 



>>>>>>>>>>»>»>»* 



o 



IS •.NO 

OUT»FIRST ,»»»>»* 



YES ,» IS 

+ «<<<*. BUFFER 

* •» OPEN 



»J TO OPEN. 

GO OPEN 
BUFFER 



* HHA 
FETCH IN 



.FETCH DATA WORD. 



INCREMENT 

OATft ADORESS 



.STORE DATA HORO. 
. AT IN ADDRESS . 



INCREMENT IN 



>>»>»>>»>>»> >>>»4VES 

♦ * * HNB 

♦ * ■■•■••• ♦ 



. SAVE END OF . 
.LINE FLAG tEOLl. 



♦ * 

♦ * 

♦ r 

t »> 

t * 

♦ t 

♦ * 

♦ t 

♦ * 

♦ t 

♦ ♦ 

♦ * 

♦ t> 

♦ * 
t t 

♦ t 

♦ ♦ 

♦ t 

♦ t 

♦ t 
t t 

♦ t 
■r * 



t » 

♦ * 



. SET FUNCTION 
. COOE TO 000 



+<<<<<«<««<«<<< + »>>>>>>>>»>>»>»+ 



YES . 



IS OP 

COMPLETE 



RJ TO XRCL 
GO INTO 
RECALL 



♦ * 

♦ ♦ 






♦ + 



* ♦ * 

• » *. ♦ * 

IS OP ». NO » * 

COMPLETE .•>»»♦ * 



>>>>»»> >>>>>> +YES 

+ WNO 



RJ TO WRITE 
CALL CIO 

WRITE 



* HNE t ♦ 
............. ♦ * 

RJ TO XRCL . ♦ * 

GO INTO . 1- * 

RECALL . ♦ ♦ 

■ ... . » t + 

* * * 



IS 
IN=OUT 



. YES 
.*>>>>> 



FETCH LIMIT 



♦ IS 

IN*1=LIHIT 



NO 



♦ t 

♦ ► 

♦ f 

♦ * ». ,• * 

♦ » ». .* + 

♦ * • ♦ 



NO .» IS . 

<«<<». FILE 

». OUTPUT 



DEC REHEAT 
LINE COUNT 



.* LINE •. NO 

*. LIMIT EX- .*>>»>* 

». CEEDEO .» 



O 



.• •. ♦ * 

IS Of •. NO » ♦ 
COMPLETE .•»»>» * 



.'. BNI. 



YES .» IS OP •. 

*<<<<<•. IK PROGRESS .» 



>♦ * 



* HNF 
STORE NEW IN 



IS •. YES 
IN < OUT .•>>»»* 



ENO 


'.YES 


OF 


.•>>»»>» 


LINE 


# » 



(00 IN 
BUFFER LENGTH 



. *. HNH 
• * *» 
■• TOO FEW •. YES 
. MOROS IN .«>>»>* 
•. BUFFER .• 



FETCH FIRST 



,>>>>>>>>> » 



RJ TO HRITE 

CALL CIO 

HRITE 



>>»>»>»>>>>*<<<<<<«<<<<<<< 



o 



/?J 



o 



• ci. u 



.SET WRITE COOED. 
. BUFFER STATUS . 



ERROR NUMBER 

..* B<t 



SET A KORO 
OF ZEROS 



ZERO A KORO 



+ <<<<<<<«<<<< 



SET CIO COOES . 



o 



>»>>>»»>>»>* 



♦ YES .» IS ». 

♦ «<<<», RA+1 . 

•• BUST .• 



SEND CIO CALL 



♦ .• ». 

♦ TES .• IS •. 
*<«««. RAM .» 

•. BUST •• 



SET RCL COOES 



. GET ADDRESS . 
. OF MESSAGE . 
. (OUTPUT LINE . 
.LIMIT EXCEEDED*. 



.RJ TO SYSTEM . 
.PROCESS ERROR. 



OIVIDE MUH8ER 
BT 10 DECIMAL 



GET INTEGER 
O.U0TIENT 



-10«INT DUO 



ACCUHULATE 
NUMBER 



MEN NUMBER 
= TNT. QUO. 



.DECREMENT OIGIT. 
. COUNTER IOC) . 



IS ♦. MO 

oc=o .•>>>>> 



♦ <<<<««<<<<« 



FETCH A DIGIT . 



AOO 33B 
TO OIGIT 



LEFT SHIFT 
OISPLAY CODED 

WORD ONE 
CHARACTER 



AOO OIGIT 
TO WORD 



.» ALL •• NO 

. DIGITS COM- .•»> 
». YERTEO .• 



SEND RCL 
REQUEST 



>»>>>»>»>»>»* 



♦ YES .• , IS ". 
»«<<«<". RA»1 . 
». BUSY .• 



NOT«S 

1. HLLFO CHAP. STRING BUF . KITH BLANKS 
'. FOUND RIGHT-JUSTIFIED LINE TERMINATOR 



.SET UP PP CALL 



SET BUFFER 
LENGTH TO 158 



SET UP 
POINTERS 



/?Y 



O 



>»>>>»>>>>»♦ 



♦ YES .• LOCAT*N •. 
«<<<<<*. ONE • 

*. BUSY • • 



OPE 
OPEN I/O 

BUFFERS 



>>»>>>»>>>»* 



» NO .» PP CALL *. 
»<<<<<♦. ACCEPTED 



CALCULATE 
. BUFFER SIZE 
. tLIMIT-FIRST) 



. EXTRACT PRU 
. SIZE FROM FET 



.« BUFFER •. YES 
*. SIZE > PRU .»>>>>> 
♦. SIZE .» 



NO .• BINAPY 
«<<<•. TAPE 



* LOOPS 



•PLACE LOH ORDER. 
.BLANK IN BOTTOM. 
.<> N0R05 OF CHAR. 
. STRING BUFFER . 



REDUCE WORD 
COUNT 81T FOUR 



». SEE NOTE 1 .•>»» 



♦ YES 

+ 

* rocdz 



.SET EXIT AOOR. 
. FROH GETTING 
. BUFFER LIMITS 
TO ROCOl 



* 

* AST 



.STORE FILE NAME. 
, IN MESSAGE . 



SET 1O0OB 
AND 8UFFER .»>>►> 
SIZE-10008 

IN FET»16 



»>>>>>>>>>>>* 



. SET 2IPRU) 
. AND BUFFER 
. SIZE-ZIPRU) 
IN FET+16 



*<<<<<<«<<«<< 



*<<€*<*<<<<<<<< 



. • LOCAT*N •. YES » 
ONE .»>>>>»» 

•. HUSY .• 



MSG 
•PRINT MESSAGE. 



SET IN=FIRST . 



««<«<<«<<<<< 



•• L0CAT4N ». YES ♦ 
• ONE .»>>>>>• 

• . BUSY . • 



* LOOP1 

. SHIFT NEXT 
. CHARACTER TO 
LOH ORDER 
POSITION 



.• •. NO 

. SEE NOTE 2 ,r»»»» 
*• .* 



*<<<<<«<<<<<<<< 



MASK OUT 

RIGHTMOST 

CHARACTER 



ZERO •. YES 

CHARACTER .»>>>>> 



. STORE CHAR. . 
.RIGHT-JUSTIFIED. 
. IN CHARACTER . 
. STRING BUFFER . 

♦<<<<«<<<<<<<<< 

» L2 



.INCREMENT BONN 

CHARACTER 
. STRING BUFFER 



NO . * MOVED 
<<««<». 10 CHARAC- 
». TERS 



OECREHENT 
HORO COUNT 



. ON PG Z 
1 . 



CI 



RESET BUFFER 
STATUS 



ABT 
ABORT JOB . 



o 



• ar 



%uF 



a-cz. z 



o 



yes • • iso •. 

<<<<<». CHARS. PRO- •• 
♦. CESSEO •• 



.• OUT •. YES 

». EQUAL .•>»» 

». LIHIT .♦ 



YES •• OUT 

»<<<<<•. EOUAL 

* ». IN 



♦ NO 

. LOOP1 



>>>>>>>»>>»>* 



UPDATE OUT 



+ 

* SETOFF 



SET OUT 
•EOUAL TO FIRST 



>>>>>>>>>>>>>>»♦ 

.'. OONE 
■ • •• 

NO .• OUT ". 

<<<<<', EQUAL ." 

•. LIMIT .• 



SET OUT 
.EOUAL TO FIRST . 



* 

* STORE 



. FETCH WORD .»»>> 
FET»1» 



* 

* NVEXIT 



. SET X»»-l, 
. NO EOR OR EOF 



NO .» ROOH ». 

«<<<<•. FOR 2tPRU» 4» 
». IN BUF. .♦ 



.• BUFFER •• ItS 

. BUSY .•»>»» 



YES .* EOR ♦. 

<<«<*. BUFFER 

•• STATUS .* 



.» PARITY •. NO 
». ERROR ON .•»>»> 
•. LAST OP .* 



SET PARITY 
FLAG IN FET»« 



» NOERR 



SET EXIT 
. ADDRESS FOR 
, CIO CALL 
TO SIO. 



>>>>>>>>>>»»>*<<<<<««<«<«<< 



.• OUT •. MO 

EQUAL .•>»» 
». LIMIT .» 



SET OUT 
TO FIRST 



* MV112 



. UPDATE HORO . 
.COUNT IN FET»13. 



. RJ HVHDS 
. MOVE NORDS 



UPDATE OUT 



. SET X»«-t, 

. NO EOR OR EOF . 



YES •* MORO 
«<<<«<<*. COUNT = 
». ZERO 



.» ROOH •. YES 
•• FOR Z<PRU> .•>>>>» 
•. IN BUF. .» 



.NO 
. ROL1 



»<<<4«<<<<<<«< 



.• PARITY •• NO 
». ERROR ON .»>>>>>» 
». LAST OP .• * 



. SET PARITY 

. ERROR FLAS 

IN FETH3 



O 



. NOER 



SET EXIT 
. ADDRESS FOR 
CIO CALL 
TO RDL1 



NOT'S 

1. H»NT TO HOWE MORE TH»N a<PR'J> MOROS 



/?C 



O 



NO .» 


CULL 


*<<<«<•, 


FROM 


* ». 


INPUTC 



*<<<<«<•. SEE NOTE 1 .* 



EOR ». YES 

STATUS .»»»>»>* 



>>>>>>>>>>>>>>+ 



.». 

• * •• 
NO .» REQUEST *. 
<<<<<*. FOR I .• 

•. WORO .» 

*. ■ • 
» 

*YES 

* ONEHO 
. HOVE ONE HORO .»>>> 



>>>>>>>>>>>»+ 



NO .• WRITE *• 

* <«<<*• REQUESTED .* 

* ». .* 

* * 

* 4-YES 

4 ♦ 

* + 


+ 
♦ 
♦ 
* 
♦ 
* 
4 
♦ 
4 
* 
* 
♦ 


NO 

4<<<<< 

.4 
4 
.4 

4 
4 
4 
4 
4 
4 
4 
* 


.» 2CPRUI ». 

». HORDS IN .* 

*. BUFFER ,• 

*• •* 

* 

♦YES 

• * * ■ 
• » BUFFER ». YES 
*. BUSY ,•>>>>>* 
». .» * 

♦- .• + 
• * 


4 
4 
4 
* 
+ 
4 
4 
4 
4 
♦ 
4 
4 
4 


•» WORD » 
*. COUNT 

». EVEN .» 
*• • * 

# 

♦NO 

4 
' ♦ 


. YES 


♦ • 

* .MffHOS. . 


DECREMENT 
. WORD COUNT 


* 


* 


♦ 




+ RDLi 


■ 4 
4 
4 
♦ 
* 
4 
* 
* 
+ 
4 
4 
+ 
+ 

+ 
4 


4 
4 
4 
4 
4 
4 
4 
4 
4. 
4 
4 
4 
4 
4 
4 
4 




♦NO 

4 
4 


♦ 
* 
* 
♦ 
* 

4 
* 
* 
* 
* 
♦ 
* 
. 4 
* 
* 
4 


4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

+ . .. 

4 

4 

4 

4 


4 
4 
4 




.SET EXIT AODR. . 
. FROH GETTING . 
. HUFFE» LIMITS . 
. TO PDMOS. 




. SET B2=N0. OF . 
• WORDS (ZIPRUU . 


. SET ODD FLAG 


* 


♦ 

4 
♦<<<<<« 

♦ EVEN 




* 
♦ 

4 
4 
• At.**.***..*,***.*-***.*. . .. 

SET Ft AG 
. FOR SETDIFF • 




4 

4 

+ RDl 


<<<<<<<< 


REDUCE 

• MORO COUNT 

* BY TWO 




GET 
. BUFFER LIMITS • 


! 


4 


♦ 


4 





o 



.♦. NORHN 



NO . » 



BUFFER 
EMPTY 



>>>>>>>>>>>>>>* 



NO 



OUT 
IN 



>»>>>>>>»»>>* 



SET B2 » 

NO. OF WORDS 

(UNIT-OUT 

HN-FIRSTI 



.• ENOUGH ». YES 
. NOROS IN .•>>>>> 
». BUFFER .» 



♦*<<<<<<«<«<<< 



UPOUTE HORO 

COUNT IN 

FE !«■! T 



. RJ HVNOS 
.GO MOVE HORDS. 



HOVE FIRST 
TWO WOROS 



00 NE 

HITH 
HOVE 



♦ L00P2 



REDUCE 

HORO COUNT 

BY TWO 



HOVE THO 

MORE HOROS 



OONE *. NO 

HITH .•>»>> 

HOVE .» 



o 



/77 



o 



set EXIT 

. AOORESS FOR . 
•CIO CALL TO ROL. 



NO .» BUFFER ». 
««<«•. BUSY •• 



>>*>>>>>>>>>>>* 



SET XVI, 

.EOF ENCOUNTERED. 



NO •• EOF 
»«<«•. STATUS 



SET BUFFER 
LIHITS 



OUT > •. NO 
IN .»>»»>> 



+ «<<<<<<<<«« 



SET B2*NO. OF . 
WORDS ILIM.XT- . 
OUT*IN-FIRSTt . 



OUT = •. NO 
FIRST .»»»>» 



»>>»>>>>>>>>>»> + 



.• REQUEST •. YES 

• FOR > ,»»»>>> 

». 2IPRU» .• 



NO .• 2IPRU) ». 
<«<<<•. NOROS IN 

•. BUFFER .» 



*VES 



.• BUFFER *. YES 

BUSY .*»»>> 



. SET S2=N0. OF 
.NOROS !J(PRUH 



SET FLAG 
FOR SETOIF 



.'. NORML 
.• •. 
.• ENOUGH '. YES 
». ROOK IN .»>»» 

•. BUFFER .» 



»»»>>»»»>»* 



♦<<<<<«<<<<<<< 



. SET B2*N0. OF . 
.WORDS (IN-OUTI . 



ODD ». NO 

FLAG .»»»»4 

SET .• * 



HOVE ONE 
HORE HORD 



»<<<<<<<<<<<<« 



NO .• RARITY 
»<<<<<>. ERROR LAST 
•. OP 



UPDATE 
. HORO COUNT 



SET PARITY 

ERROR FLAG 

IN FET*» 



.». NOERRR 



EOR •. YES 
STATUS .»>>»> 



« EOR 



SET EXIT 
. AOORESS FOR . 
.CIO CALL TO RU2. 



CLEAR EOR 

HIT IN 

BUFFER STATUS 



SET X«*0. . 
•EOR ENCOUNTEREO. 



. RJ MVHOS 
.GO HOVE HOROS. 



.» ENOUGH •. NO 

FOR A .•>»»> 

•. WRITE .• 



.• BUFFER *. YES 

BUSY .♦»»» 



»>>>>>>>>>>>>>>>>♦ 



SET EXIT 

ADDRESS FROH 

CIO CALL 

TO SIO. 



/7<f 



o 



NO .• IN *. 

*«<«•. EQUAL •• 

•• LIMIT •• 



. SET B2*NO. OF 
.NOROS UN-OUTI 



.» SUFFER •• YES 
». FULL .»»»»* 



• NO 



SET IN 
TO FIRST 



* NW1 



RJ MVWOS 
HOVE WORDS 



RECALL *. NO 
REQUESTED .»»>»♦ 



.• BUFFER *. YES 

FULL .»»>>»* 



*<<<<<<<<<<<<<< 



UPDATE IN 



*<<<<««<<<<<<< 



.» AUTOMA- ». NO 
». TIC RECALL .•»>»* 
•• REQUEST .• 



* ONPBUF 



SET EXIT 

AOORESS FROM 

CJO CALL 

TO STBSIX 



NO •• HORD 
*<««*. COUNT « 
* ». ZERO 



. LOAD CIO CALL . 

.WITH AUTOMATIC . 

RECALL 



BUFFER ». YES 
BUSY .•»>>>♦ 



SAVE EXIT 

.AOORESS: TEMP. . 

. EXIT AOORESS . 

OF WAIT 



o 



>»>>>>>>>>>>>♦ 



YFS .• StP3U> *. 

*«<<<♦, DATA IN 

t •. BUFFER .• 



*<< <<<<<<<<<<< 



SET UP 
PP CALL 



♦ STBSIX 



SET EXIT 
. AOORESS FROM . 
.CIO CALL TO MR3. 



>>>>>>>>>>>>>>+ 



*<<<<<<<«<<<<<< 



.» LOCA- •. YES t 

«. HON ONE .•>»»>» 

• . BUSY . • 



SET EXIT 
. AOORESS FROM . 
•CIO CALL TO MR3. 



RJ CIO 
.ISSUE PP CALL. 



RESTORE 
EXIT AOORESS 



*<<<<«<<<<<<<<< 



LOCA- •. YES » 
TION ONE .»>>>>>• 

diicv v 



o 



o 



.BKSPRU. 



/?1 



SET EXIT 
AOORESS FROM 
RECALL tO ROL 



SET Xlt*-0t 
BUFFER BUST 



. RJ CKSTAT. . 

CHECK 
.BUFFER STATUS. 



SET NORMALL 
RECALL FLAG 



o 



.» PERIOOC •• YES 
RECALL .•>»» 
». REQUEST .• 



SET UP FOR 

RECALL UNTIL 

I/O IS DONE 



t .*. SAR 

» .• *. 

♦ YES .♦ LOCA- •. 
«<««•. TION ONE •• 
♦. BUSY •• 



RCL 
CO INTO 
RECALL 



>>>>>>>>>>»»♦ 



» NO • • REQUEST •. 
.«««•. PICKEO BY • • 
♦. MONITOR .» 



YES .• BUFFER •• 
««<<•. SUSY 



SET X<*=-1, 

BUFFER IS 

STATIC 



BUFFER •• NO 
BUSY ,•»»>♦ 



• • BUFFER *. YES 

STATIC .•»»»>• 



SET x*»o. 

LAST REAO 
ENCOUNTERED 

AN EOR 



YES .» LAST OP •• 
<<<<•. READ AM . 

». EOR .• 



SET X<xl, 

LAST REAO 

ENCOUNTEREO 

AN EOF 



.• LAST OP •• YES 
•. REAO AN .»>»>>» 
«. EOF .• 



SET XM-1, 

BUFFER IS 

STATIC 



>>>>>>>>>>>>>»« <<«««<««<««<« 



SET EXIT 
ADDRESS FROM 
RECALL TO BKA 



CIOl. 
GO INTO 
RECALL 



* SKA 



SET EXIT 

AODRESS FROM 

BACKSP TO 

BKSPRU. 



BKSPRU 
BACKSP 
ONE PRU 



//<* 



o 



SET EXIT 
ADDRESS FROM 
RECALL TO FIZ 



. RJ FIZBAK. . 
.POSITION FILE. 



. RJ CKSTAT. 
CHECK BUFFER 
STATUS 



BUFFER ». NO 
BUSY .♦»»»* 



RJ CIOl. 
CO INTO 
RECALL 



♦ FIZ 



SET B6«l, 

ENCOUNTEREO 

AN EOF 



. SET 0*IN-OI1T 



.REVERSE IN AND 
. OUT POINTERS 



RJ BKSPRU. 

BACKSP ONE 

PRU 



. SET BUFFER 
STATUS TO 
•MRITE COHPLETEO. 



.» BUFFER ». NO 

BUSY .»»»» 



SET EXIT 
ADDRESS FROM 
RECALL TO RDA 



CIOl. 
CD INTO 
RECALL 



* ROA 



.SAVE LIMIT ANO . 
•REPLACE IT KITH. 
. (PRU«2) 



♦ FIZC 



RJ BKSPRU. 

BACKSP ONE 

PRU 



CLEAR EOF BIT 

FROM BUFFER 

STATUS 



.CLEAR EOF FLAG 
IN FET 



. SET BUFFER 
.?MPTY AT FIRST 



DECREMENT 
RECORD COUNT 



SET 86' 1. 

ENCOUNTERED 
AN EOF 



». YES 
POSITIVE .»»»> 



.SET O-LIMIT-OUT. 
•IN-FIRST 



« FIZA 



. RJ BKSPRU. 
. BACKSP ONE 
PRU 



. SET BUFFER 
•EMPTY AT FIRST . 



. RJ RDPRU. . 
•READ ONE PRU . 



Y5S •• READ •. 

<«<<<<». AN EOF 



.» IN-OUT ». YES 

• . < •»»>>> 



SET 0* 
0-IIN-OUT) 



.>>>>»>>>> 



>>>>>>>>>>>>>>>* 



. RJ BKSPRU. 
<<<«<<, BACKSP ONE 
PRU 



* FIZB 



. SET OUT=FIRST 
♦IN-OUT-0 



SET 86*0. 

NO EOF 

ENCOUNTERED 



. SET BUFFER 
•EMPTY AT FIRST 



SET EXIT 

ADDRESS FROM 

READ TO ROB 



CIOl. 
READ UNTIL 
BUFFER FULL 



» ROB 
RESTORE LIMIT 



o 



o 



SEE NOTE 1 



RJ ABNORMAL 
ABANDON 
THE JOS 



/// 



o 



MOTES 

1. »J SYSTEM »f»POR, COMPUTED 3R ASSIGNEO GO TO STATEMENT* 



A-Al. 1 



/A2. 



o 



FETCH THE 
OISPLA NUMBER 



. ' .». OLAY1 

• .» •. 

♦ NO .» CAN A *. 
»<««<<♦. REQUEST BE .» 

». ISSUED .♦ 



>>»>>»»>>>>* YES 

t * oba 



•FETCH THE NEXT 
.HOLLERITH HORO 
. 1NO STORE IT 
FOR MSG 



♦ YES .* ARE *. 
»«<<<». HORE HORCS .* 
». FOR HSG .* 



NO .• OISPLA ». 
»<<<<<». NUHBER . 
* ». > .• 



. COHPLEHENT 
. OISPLA NUMBER 



♦ OIA 



. STORE SIGN OF 
. DISPLA NUHBER 
ttsBLANK) 



NO .» IS THE 
+ «<<<». OISPLA NO. 
* ». = 



>>>>>>>>>>>>>>* 



YES .• OISPLA 
«<<«». INFINITE 
». NUHBER 



.» OISPLA ». NO 
•• NO. OUT OF .•>»! 

•. RANGE .» 



»>>»>>»»>>>>*yes 

* ERR 



>»>>>>>>>>>>>* 



NORMALIZE 
RATA 



.• OATA •. YES 

». NORHALIZEO .•»>»»>* 



» OATA •• YES 

FLOATING PT .•»>»» 
». ZERO •• 



>>>>»»>>>>>»>>* FPT 



.CONVERT DATA TO. 

.FLOATING POINT . 
*«<<<«<<• NO. * STORE ONE. 
» .DIGIT PER HORO . 

* . IN ARRAY OAT . 



.CONVERT DATA TO. 
.INTEGER » STORE. 
.DIGITS ONE/HORO. 
. IN ARRAY OAT . 



* PCK 



INITIALIZE 

POINTER TO 

ARRAY OAT 



*«<<<<<<<<<<< 



AOO NEXT 
.CHARACTER INTO 
A NOPO 
FOR HSG 



» CHAR IN •• YES 

1ST PART OF .»>>>»> 
». WORD •• 



SHIFT THE 

.CHARACTERS LEFT. 

ONE PLACE 



.' HORE ♦. YES 

•. CHARACTERS .»»»» 



>>>»>>>>>>>>>>>* 



STORE PACKED 
HORO FOR HSG 



.» MORE ». NO 

». CHARACTERS .♦>>>>> 



>»>>>»»>>>>>>>>* 



SET UP 
HSG REQUEST 



.'. HRT f 

t* *. * 

• CAN HSG ». NO t 

REQUEST BE .•>»>>» 

•. ISSUEO .* 



ISSUE HSG 
REQUEST 



.♦. HRU t 

.» •• * 

.♦ HSG *. NO t 

REQUEST .»»»»♦ 

». HONOREO ..» 



o 



STSRE ERROR . 
HESSAGE FOR . 

HSG 



o 



o 



.» •. . SET FMA=0 

DUMP •. YES . LHA=EXECUTION . 

OF ALL .•>»»»»>»»>». FIELD LENGTH. . 

CORE •• • FETCH »MO . 

•. .» .STORE FORMAT . 



SET FLG 

FOR DUMP 



/£3 



SFT FLG 
FOR POUMP 



STORE THE 
S REGISTERS 



RJ LST 

WRITE OUT 

DUMP 



RJ OHP 
.PERFORM DUMP 



RJ OMf> 
•PERFORM DUMP 



•FETCH PARAMETER. 

. ST»RT ANO END . 

AOORESSES 



.» DUMP *. YES 
». COMPLETE .•>»»» 



>>»»»»»>»>»>>* 



. FETCH FMA ANO 
. LHA OF AREA 
. TO BE OUHPEO 



UPDATE 
PARAMETER 
. START ADDRESS 



LHA > ». YES 

FHA ••>►>» 



SWITCH FMA 
AND LHA 



* ONG 
IfETCH E FORMAT 



YES •• E 
<<<<<•. FORMAT 
•• OESIREO 



•FETCH I FORMAT 



•• I •. YES 
. FORMAT .»>>>>>« 
•. OESIRED .• 



.FETCH FORMAT . 

* 

* 

♦ OUF 
. STORE FODMAT . 



RJ LST 

WRITE OUT 

OUMP 



SET B1*BEGIN AODR OUNP ARRAY .STORE FHA OF DUMP IN ARRAY ♦ UPOATE.SET B? = J 
OOES INTERMEDIATE ENTRY TO OUTPTC HAVE TO 8E HADE 



SET UP 
. FIRST ENTRY 
. PARAMETERS 
. FOR OUTPTC 



RJ OUTPTC 



»<<«<««. INITIAL. OUT- 
.PTC FOR PDUHP. 



. RJ OUTPTC. . 

. INITIAL. OUT- . 

• PTC FOR OUNP ., 



/<?¥ 



o 



* 

» LSA 
. SEE NOTE 1 . 



• •. LSP 



DUMP ». YES 

COMPLETE .•»>»>• 



YES .♦ •. 

.<<<<<<<». SEE NOTE 2 .» 



o 



*NO 

.STORE THE NEXT . 
. UOPO TO BE 
.OUMPEO INTO THE. 
. OUMP ARRAY . 
82=62*1 



.» l> MOROS •. NO 
•. STOREO DUMP .•>»>>• 
». ARRAY .♦ 



. RJ OUTPTC . 

FINAL ENTRY 
.TO ENO OUTPUT. 



♦ YE S< <<<<<<<<<<<< 

+ 

* LSN 

82=B2*1 



. RJ OUTPTC . 
*<««. WRITE OUT ONE 
.LINE OF OUHP . 



o 



© 



. SET VARIABLE 
•SPECIFIED TO 1 



YES .• X6 ». 
«<«<<«. INDEFINITE .• 
•• .* 

* • • * 

• NO 
.♦. 
• • •• 
.• X6 •. YES 
•• OUT OF .•>»»>>♦ 
•• RANGE . • 
». .» 



//r 



O 



. SET VARIARLE 
. SPECIFIED TO t 



>*>>>>>>>>»»>>♦<««<«««««<<«<< 



SET RETURN 
TO -1 



/n 



o 



YES .♦ »»RI*BL 
«.<<•. INDEFINITE 



SET RETURN 
TO 1 



.» WARI4BI •. TES 
». OUT OF .•>»>>. 

•. 9«NCE .• 



SET SETUKN 
TO J 



>>>>>>>>>>>>>»<<<<<<<<<<<<« 



\j 



o 



//7 



O 



SET HOORESS 

Of V*RI»9LE 

IN X6 



O 



/// 



NOTES 
1. 



SYSTEM. LIST FRROR HESSAGE AND GIVE TRACEBACK 



o 



•EXTRACT PRIMARY. 
. AND SECONDARY . 
.OVERLAY NUMBERS. 



* »>»>>>»»»>»>♦ 

.•. » ♦ ♦ 
.* *. t ♦ • •» t*. 

FOURTH •. NO t ♦ .DELETE TRAINING. 

PARAMETER .•>»»»>»»>»>>>>. BLANKS FROM . 
. RECALL .» » » . FILE NAME 



♦ ♦ 

t ♦ 

♦ ♦ 

♦ ♦ 
t ♦ 
t t 

+ t t 

4 t ♦ 

* t t 

• •'. • • 

.» », ♦ ♦ 

• LI SAME •• NO ♦ ♦ 

AS OVERLAY .•>>»>>♦ t 

•■ IN CORE .♦ » 



CHECK TO SEE IF 

REQUESTED OVERLAY HAS 

LAST ONE LOADEO 



SET FILE NAME 
AND OVERLAY 

NUMBERS INTO 
LOADER CALL 



. RJ LOADER . 
LOAD REO.UEST- 
. ED OVERLAY . 



• L2 SAME 

«S OVERLAY 
». IN CORE . 



»»ES 



'.NO » 
,»>»>>>>♦ 



.• LOADER 
♦. OETECT FAT. 
». ERROR . 



♦ NO 



O 



. YES 



* . SAVE PRIMARY 

. ANO SECONDARY 

.EXTRACT OVERLAY. >>>>»►>>»>>>>>>. LEVELS. 

. EMTRY AOORESS . .SET UP OVERLAY 

. EXIT LINE 



ABORT JOB RJ 



1 



TO ABNORMAL 



EXIT IS TO EXIT LINE OF 
OVERLAY »1 



o 



/// 



o 



. SET VARIABLE . 
.SPECIFIED TO 1 . 



.• X6 ». YES 
'. OUT Of ,»>»» 

». RAMSE .• 



. SET VARIABLE 
.SPECIFIED TO I 



*<<<< <««<«<<«« 



o 



. SET UP THE 

MESSAGE . 

PAUSE N. 

SET UP A 
. MSS REQUEST . 

.». PAV » 

• • ». t 

.* CAN ». NO » 

». REQUEST BE .»»»>t 
». tSSUED •• 



ISSUE THE 

. HSG REQUEST 



SET THE 
PAUSE BIT 



'fa 



O 



.• IS THE *. YES 
»■ PAUSE BIT .•>»»* 
•• CLEANED .• * 



o 



»>>>>>>»>>>>>>>»* 



SET UP A 
. RCL REQUEST 



*<<€<<<*<<*<«< 

.'. PAY » 

.• •. t 

.• CAN ». NO * 

•. REQUEST BE .•>»»♦ 

». ISSUED .» 



ISSUE THE 
RCL REQUEST 



o 



/f 



o 



FETCH THE 

HESSAGE >N0 

STORE TT FOR 

> NSG REQUEST 



SET UP THE 
HSG REQUEST 



RJ CPC 

ISSUE HSG 

.REQUEST H/RCL. 



o 



/?-* 



o 



>>»>»>>»»>»* 



.» ANY •• NO » . WRITE *8AD 

». SPECIFIED .»»»>»>»>»». PARAMETER* IN 

••■ PARAMS. .» » . OAYFILE 



.» MORE •. YES ♦ 
». SPECIFIEO .•>»»» 
*. THAN Z .• 



LOGICAL ». NO 
FILE NAHE .»>»»♦ 
. SPECIF. .* t 



.CHANGE NAHE OF 
FILE TO 
WRITE ON 



*<<<«<«< <<<<<<< 



CHANCE NUMBER 
OF FILES 

TO 8INART 



PLACE IN 
LOAnEP CARO 



. WRITE LOADER 
.INFORMATION ON 
. LOGICAL FILE 



o 



o 



*««<««<«<<< 



PP *. HO • 
MONITOR .•>»>»♦ 
FREE .* 



. FORK REQUEST . 
.FOR PP ROUTINE . 
. TIM IN RAtl . 



/fi 



O 






YES .♦ HAS TIM •• 
<«.<<». RETURNED •• 

». ANSWER .• 



. FORM REQUEST 
. FOP RECALL 
IN RA+1 



>>>>>>>>*>»>>* 



. CONVERT THE 
TIME TO 

.FLOATING POINT 
SECOMOS 



/*-/ 



>segmfnt< 

NOTES 

1. LIBRARY CULLS OFSIREO (PARAMETER 4 = 0» 

?. IS HAP DESIRED (PARAMETER 5 t 01 

■<. FLF.NtNT LEGAL ALPHANUMERIC IDENTIFIER 



o 



*<<<<<<<<<<«<< 



. PICK UP THE . 

.PARAMETER COUNT. 

.OF THE CALLING . 

PROGRAM 



.PICK UP SEGMENT. 

. LEVEL NUMBER . 

(SECOND 

ARGUMENT) 



VES .» S.L.N. 
*«<<<». EXPONENT 
». ZERO 



INTEGERIZE 

SEGMENT LEVEL 

NUMBER 



>>»»>>»>>>>+ 



.» 0>LEVEL ». NO 
». NUMBER .•>>>>> 
*. >6"> . • 



>>>>>>>> »>>»>4 



FORM ERROR 
MESSAGE 



RJ 

SYSTEM 



. PICK UP FIRST 
•ELEMENT OF THE 
. SEGMENT LIST 
(THIRD 
PARAHETER 



♦ <«<«<<<<<« 



YES .* ELEMENT ». 



NO .» ♦. 

<<«<«. SEE NOTE 3 .» 



. DELETE ANY 
.TRAILING BLANKS. 
. IN ELEMENT 



. PICK UP NEXT . 

. ELEMENT OF .»»> 

. SEGMENT LIST . 







>»>>>>>»>>»* 



SET BITS 
. H,S,F,C IN 
.SECOND WORD OF . 
. LOADER CALL . 



». INPUT PAR- .•>>>>>>>>>>>»». SEE NOTE 1 .•»>>» 

•. AHETERS .• •. . .• 



+YES<<<<<<<<«< 



. STORE CONTROL . 
. BITS AND SEG. . 
.LEVEL NO. INTO . 
.SECOND HORO OF . 
. LOAOFR CALL . 



. PICK UP FILE . 
. NAME (FIRST . 
. PARAMETER! 



NO .» FILE 
»«<<<>. NOME =. 



. CREATE FJKE . 
FILENAME 



TURN OFF 
C BIT 



*<<<«<<«<<<<«« 



YES .• ■> •. 

<<<<<<<». INPUT PAR- . 
». AMETERS .• 



«<<<<«<.. SEE NOTE i .• 



.TURN OFF M BIT 



><<<<<<<. 



SET MAP 
NEGATIVE 



.• 1ST •. NO 

♦. ELEMENT OF .•>>>>> 
•• S.L.zO .♦ 



ADDRESS OF 

SEGMENT 

LIST • a 



.STORE FILENAME*! 
.AND SEGMENT LSI. 
■ ADDRESS INTO . 
. FIRST HORO OF . 
. LOADER CALL . 



. ON PG 2 



>>>>>>>>>>>>>>* 



o 



o 



NOTES 

1. NON-FATAL ERROR IN LOADER AMO NAP REOUESTEO 



.♦ LOAD ». YES 

• . HAP RE- .♦>»» 

•• QUESTED •• 



»no<<<««<<<<<« 



RJ 

LOADER 



NO .» FATAL •. 
*<<<<<•. ERROR IN 
* ». LOADER .» 



>>>>>>>>>>»»* 



NO .» • 

*«<<<". SEE NOTE 1 



NO .» IS 

<<<«<<>, file 

•. OUTPUT 



NO •• OUTPUT ». 
<<<<<<<•. BEEN 

». OPENED •• 



RJ 
WAIT 



YES .• OUTPUT ». 
<<<<<<«». BUFFER 

». EHPTV .• 



REQUEST 

CIO TO 

EMPTY BUFFER 



<<<<<<<, 



RJ 
MAIT 



>»>»>>>>>>>>«■ 
.'. 

• * *• 

■ • PP •• NO 

». MONITOR ••>>>>»> + 
». BUSY .• 



. PICK UP FIRST . 
.HORO OF FET FOR. 
. OUTPUT FILE . 



.» REQUEST •• YES 
•. PROCESSEO ••>>» 



REQUEST 
<«<<. RECALL 



*«<««<<<<<«<<«<«< 



o 



MESSAGE 



/fjr 



A-413. 2 



>>>>>>>>>>>>>>* 



/f* 



4-414. t 



>SLlTf « 



o 



LITE ». NO 
BETWEEN .»>»»* 
Q AND 6 .» » 



>>>>>»>>>»»»>* 



.TURN SPECIFIED . 
LITE ON 



. Rd SYSTEN 
B»0 SENSE 
. LITE NUMBER 



.TURN ALL LITCS 
. OFF IF LITE 
. NUMBER IS 



© 



o 







'*? 



© 



.♦ LITE ♦. NO 

BETWEEN .•>»» 
•. 1 ANO 6 .• 



. TORN LITE OFF . 
.SET RETURN TO 1. 



»>>»>»»»»>* 



HAS ». TES 
LITE .•>»» 
ON .• 



SET RETURN 
TO Z 



*<<<<«<<<<<« 



RJ STSTEM 

SAD SENSE 

LITE NUMBER 



o 



RETURN 
THE VALUE 



/?/ 



4-A16. 1 



o 



SWITCH ». NO 
NUMBER .»>»»>* 

1-6 .» » 



>>>>>»>>»»>>>* 



.SET RETURN TO 1. 



. RJ SYSTEH . 

. *B»0 SWITCH . 

NUMBER* 



IS ». YES 
SMITCH .»»>»* 
SET .» » 



SET RETURN 
TO 2 



*<<<«<«<<<<<<<< 



o 



/fi 



O 



H»IT UNTIL 
R»*i IS ZERO 



.SEND » HESS4GE 
. REQUEST (HSGI 
TO PLACE 
(START t 
. IN OAYFILE 



o 



+ «<«<<<<<<<<< 



PP ». NO ♦ 
HON! TOR .»»>»>« 
FREE .» 



•ZERO FIRST HORO. 
. OF MESSAGE 
. SLOCK TCH 



±2 '6 



o 



• • IS ». YES 

THERE A .»»>»> 

». MESSAGE .» 



>>>>>>>>>>»> + NO 



. FORM REOUEST . 
.FOR PP ROUTINE . 
. MSG IN RA»1 . 



*<<<«<<<<<<<<< 



PICK UP HORO 

OF MESSAGE 

ANO STORE 

IN MESSAGE 

BLOCK TCH 



INCREMENT 

POINTER TO 

MESSAGE HORO 



res .» s noros » 

<<<«<•. BFEN PICKED 
•• UP .• 



YES .» MAS •• NO 

•<<<<<<<•. LAST MOHO ••>»>> 
•. ZERO .• 



o 



o 



Jo/ 



o 



«(!T?S 

1. JP CIOl. GD INTO RCL UNTIL MLE INACTIVE 



»>>>>»>»>>»>»♦ 

* LAST 



LAST ». TES 

ENTRY .•>»>»» 



YES .• FIRST 
*«<«». ENTRY 



. STORE BLOCK 
.START LOCATION 
IN FHA 



.SET UP FLAG FOR. 
. LAST ENTRY 



o 



>>>>>»»>>>>♦ 

* FIRST 

.STORE I/O NODE 
AND FILE 
INDICATOR 



.SET UP FLAG FOR. 
. SECOND ENTRY . 



.STORE TRACEBACK. 
. INFORMATION . 
. INTO NAHE»1 . 



.SET UP FLAG FOR. 
. FIRST ENTRY . 



YES .* HAVE •. 

*<<<<«*. 6A .• 



RJ GETBA 
GET SA 



FILE *. YES 

NAHE .»»>»> 

FCUNO .» 



»N0 



£RRND»S» 
. ERROR NSG ■ 
. *UNASSIGNEO 
. MEOIUt4, FILE 
. XXXXXXX* 



* CALLSYS 



. RJ SYSTEH . 
.PROCESS ERROR. 



.». LAA 



EOF •. NO 
UNCLEAREO .•»»>>>> 



»»»»>»>>>»>>>* 



.SET BUFFER FLAG. 



.» HAS ♦. YES 
». FILE BEEN .»>>>>>* 
». OPENEO .» * 



OPEN FILE . 



.♦. LAB 
.• ♦. 

.• IS THE •• NO 
•. FILE .•»>»* 

•. ACTIVE .• * 



SEE NOTE 1 



••. LAC 

*• *. 
.♦ LAST *. NO 
•. OPERATION .»»>>>» 
•. A WRITE .♦ * 



»YES 
» ERR 



» . ERRN0=56 

*<<<<<«<<• ERROR HSG = 
♦ . »BUF IN» 

» . LAST OP MRITE 



♦ YES 
» ERF 



. 


ER«N0=>55 


. 


ERROR 


MSG » . 


, 


•BUF 


IN» 


• 


ENOFILE 


XXXXXXX. 



♦ 


*<<<<<< 


<<<<<<<< 


* 


• • •. 




♦ 


,» FHA > • 


. NO 


* 
* 
* 


LUA 

* . • • 

• 

♦YES 
» EBP 


»>>>>>* 


* . 


ERRN0=S7 


. . 


*<<<€<*<<<+ 


ERROR MSG * 


. * 


, 


•BUF IM» 


. * 


• 


FHA .GT. LHA 


* 




•<«<<<«<««€<<«< 




+ 




• 


SET 

IN«OUT*FIRST 


• 


• 


TO REFLECT 
EMPTY BUFFER 


* 


* 


t 


SET UP 


, 


, 


!-FNA,->LHA»i> 


. 


. 


AND STORE 


. 


, 


IN 3AU3. SET 


. 


• 


KOOC OF READ 


* 




* 






• 






JP CIOl. 




ISSUE REAO . 



o2<*Ui 



N<»TrS 

1. 1" CI01. CO INTO RCL UNTIL FILE INACTIVE 



LUST 

ENTRY 



YES .♦ FIRST 
*<««•. ENTRY 



*. YES 



. STORE SLOCK . 

•START LOCATION . 

IN FHA 



. SET UP FLAG 
•FOR LAST ENTRY 



>>>>>>>>>>>>>>♦ 

» FIRST 

.STORE I/O MOOE 
. AND FILE 
INOICATOR 



.SET UP FLAG FOR. 
. SFCONO ENTRY . 



.SET UP FLAG FOR. 
. FIRST ENTRY . 



YES .» 



HAVE 

BA 



RJ GET8A 
GET BA 



FILE *. YES 
NAME .»>»»* 
FOUNO .* * 



INO 



ERRNO=5» . * 

ERROR MSG = . * 

»UNASSIGNEO . * »< 

MEDIUM, FILE . * » 

XXXXXXX* . ♦ » 

....... ......... * * 

» CALLSYS * 



. RJ SYSTEM . 
•PROCESS ERROR. 



.». LAA 
• * • . 
•• FILE •• YES 
". 1EEN .»>>>>>>>>> 
». OPENEO .• 



.♦. LAB 
.* •• 
•• FILE ». NO 
*. ACTIVE .•>>»> 
•. .• 
». ,» 
» 
*YES 



SEE NOTE 1 . 



*«<<<<<<<<<<< 





.* *. 


.' 


FHA > •. NO 


". 


LHA .»>»» 


». 


.» 




*• .* 




» 




*YES 




» EBP 



ERRN0-S9 

«<«<<. ERROR NSG = . 

»BUF OUT* . 

. FHA ,GT. LHA . 



*<<<<«<«<<<«<« 



. SET UP FET 
. POINTERS FOR 
. DATA TRANSFER 



. SAVE THE OLO . 

.FIRST ANO LIMIT. 

IN BAH3 

SET THE 

. BUFFER FLAG . 



. SET THE MODE . 
. OF THE HRITE . 



o 



o 



.STORE TRACEBACK. 
. INFORMATION . 
. INTO NA«E»1 . 



RJ OPEN 
. OPEN FILE 



* LAO 
. JP CIOl. 
'. ISSUE HRITE .' 



o 



,*?o 



O 



•irTFS 

1. »J 1°EN. ^OEH AS IN MRITFrO") NOT REWTNO 

?. "J "OSFIL. POSITION FILE AFTER CURRENT PRU 



SAVE 

B 

REGISTERS 



© 



T?S . 



HAVE 

FET 

ADDRESS 



. RJ GETBS 
•GET FET AODR.. 



FILE 


» 


YES 


NANE 




»>>>>> 


FOUND 


* 




• •* 






t> 






»NO 






♦ ERR 







PUT FILE 
NAME INTO 
ERROR MESSAGE . 



. RJ SYSTEM . 
.PROCESS ERROR. 



>>>>>>> 



.». EN* 



•• BUFFER ♦. NO 

. STATUS=0 .•>»»» 



SEE NOTE 1 



o 



.». ENB 



•• BUFFER •• NO 

• BUSY .*»»>»► 



•>>>>>>> 



.*. ENC 



.• LAST •• YES 

». OPERATION .»>»»» 
*. A REAO .» * 



»NO 
.». ENE 
.• •• 

YES .» LAST OP •. 
*<««•. A COOEO .» 
* ». 8ACKSP .• 



*<<<«««<<<<<<<< 



.* NODE •• NO 
*. BINARY .»>>>»»* 



RJ CIOl 

. BACKSPACE ONE . 

. LOG RECORD . 



» ENF 



. SEE NOTE ? 



INCREMENT 
RECORO COUNT 



RJ CIOl. 
EOF HRITE 



RESTORE 

B 

REGISTERS 



.GO INTO RFCAL. 



. PICK UP INPUT . 

PARAMETER 
. INITIALIZE TO . 

START OF 
. FILE NAMES 



.» IS IT ». YES 

A FILE .•>»>>* 
». NAME .» * 



. CONVERT THE . 

NUMBER 
. TO *TAPENN* . 



cja^ 



o 



>>>>>>>>>>>>>+<<<<<<<<<<<<<< 



EXAMINE ». NO 
ALL FILE .»>»»* 
. NAMES .» * 



RETURN, FILE NAME NOT 
FOUNO 



«.<<<<««<«<<<<<< 



.• IS THIS •. NO 
». RIGHT FILE .»>>>»* 
*. NAME .» 



RETURN AOORESS OF FET 



+<<<<<<<<<<<<<< 



<<<<<. PICK UP NEXT . 
FILE NAME 



o 



o 



c20 



o 



SAVE 

B 

REGISTER 



SET X6=C, 
NO EOF 



YES .» HAVE ». 

»<«<<•. FET 

♦ ». ADDRESS .» 



. RJ GETSA 
.GET FET A DOR.. 



o 



.• 


FILE 


». 


res 


». 


NAME 




»>>>>»+ 


9 


, FOUND . 


t * 


* 




•. .* 




+ 




» 




* 




*N0 




<■ 




+ EPR 




« 


, 


PUT FILE 




. + 


„ 


NAME INTO 




. 4- 


, 


fc'fcROR 




■ * 


* 


MESSAGE 




, * 




* 




* 




* 




* 


.■ 


RJ SVSTFM 




*■ 


. 


- 




, * 


.PROCESS E»POR. 


* 








♦ 



.". EOA 
.• •• 
. • EOF •. NO 
•• FLAG .»»>>>* 
•. SET .• * 



CLEAR 

EOF 
FLAG 



CLEAR EOF 

BIT IN 

. BUFFER STATUS . 



. SET X6-1. 
.EOF ENCOUNTEREO. 



* EOB 
RESTORE 
REGISTER . . EXIT 



d6 * 



♦ FI»SI 

.STORE TRACEBACK. 
. INFORMATION . 

IH NAHP+1 



o 



». yes 



YES .• 
*<<<<<*. Bi>0 



.». LAST 



NO .» BUFFER 
♦ <«<<*, BUSY 



. J" CIOl. 

RCL UNTTL 
.8UF. NOT BUSY. 



.». LJ 



YES .* 



YES .» HAVE 



RJ GETBA 

GET BA 



FILE ». YES 

NAME ,•>>»>* 

FOUND .» * 



♦ NO 

* ERR 



ERRN0=62 
.MSG-UNASSIGNED 
. MEDIUM. FILE 
XXXXXXX 



.». FIA 



FILE 

OPEN 



•. YES 



o 



YES 



*NO 

* OPENFL 



RJ OPEN 
0»EN FILE 



>>>>»>*>>>>>>>> 



EOF 

FLAG 

SET 



•. NO 



JP CIOl. 

READ EOR 

N/RCL 



>»>>>>>>>>>>> + 



* INPUTBZ 



»YES 

« EOFER 



ERRNO-63 
«<<<<. HSG=BIN INPUT 

♦ . •ENDFILE' 

* . XXXXXXX 



IN=FIRST 
OUT=FIR.ST 



SET PRU = 
.TUICE PRU SIZE 
OR 1000 B 



«<<<<<<<<<<<««< 



. JP CIOl. 
. READ AHEAO 
H/O RCL 



. yes 


* 
> + 

+ 
* 
* 


. EXIT . 


YES 

+ 

* 
+ 
* 

* 
* 


* 
* 
* 
* 
* 
* 
*■ 
* 

* 
+ 


.• LAST •. 
», OP •• 

•. HRITE •• 

* • • * 




.». EOFSFT 

.» • » 

.* EOF ». 

*• FLAG ■» 

•. SET •» 

• 
*MO 

* EOFER1 


♦YES 


•' 


ERRNO=90 
,MSG=READ-WRITE . 
. SEQUENCE 
. ERROR XXXXXXX . 




* C4LLSYS 
. RJ SYSTEM . 


■ 


. SET EOF FLAG . 


MRITE OUT 
.ERROR MESSAGE. 




* 





NO 



+<<<<<<<<<<<<<< 



>>■>>>>>>>>>>>»»>♦ 



o 



<£67 






:. »J sro. strj»r o«i« «">*:. °E»1 IF NfCFSSAPV 



EOF •• HO 

FLAG .»»»>♦ 

SET .» * 



*<<<<<«<<<«<< 



o 



+<<<<<<<<<<<<< 



STORE NEH PPU 



. FETCH FIRST, . 
•OUT, LIMIT, PRU. 
. WOCNT=HDCNT-l . 



» LOOP 



FETCH IH 
DATA HO 

PRU=PRU-1 



•• VES 
IN=OUT .»»»> 



STOPF DATA WO 



UPDATE OUT 



YFS •• •• 


♦ NO .» HOCNT ». 


♦ «<«<<*, PRU * ■.* 


*<<<<<<<», < »• 


* ». •• 


*. •• 


* »• •»■ 


*• ■* 


* * 


* 


. *NO 


+YES 


■, * 


* BLECH 


* 




+ . »FSET P9U 


. DESTINATION . 






* * 





.• BUFFER •• YES 

BUSY .•>>>»♦ 



* YES . 



* * 



* + 

* * 
>>>>>>>>> 



.• NDCNT > ». YES 
». HAKHOS .»>>»> 



• WOCNT=WDCNT-l .»»> 



* 

* RJSIOt 

. WOCNT*H0CNT*1 • 



«» IS THIS *. MO 
». A OM€ NORO • •>»»* 
•■ RCAO .» * 



• W0CNT«HOCNT41 « * 

» * 

* + 

* 

* RJStO 
RESET P9U 



JP CIOl. 

READ AHEAD 

W/0 RCl 



SEE MOTE 1 



EOF 


m 


YES 


OR 




•>>>>> 


EOR 


# « 





. EXIT . 



♦<<<<<<<<<<<<< 



'. NO 



♦ «<««<<<<«<<« 



£«RN0*«9 

MSG*LIST 

EXCEEDS DATA 

ON FILE 

xxxxxxx 



>>>>>»>♦«<«<«<<<<«««<< 



ca*f 



OOES CHAP/REC0O0 COUNT E»CE?0 150 

I? LAST M»0 AOORESS »1 OF -)»I« BUFFER * ADDRESS PTR 

»s last W3»!) aoo»ess »i of o«t» suffer » aoorfss ptr 



o 



>>>>>>>>>>»>>>>*<<<«««««<<<«<< 



LOUD SECOND 
ENTRY FLAG 



YES .• IS 
«<<<«<*• B1=0 



.• IS *. YES 

. SECNO ENTRY .»»>*>♦ 
•. FLAG=0 .* * 



RJ KRAKER 
PROCESS 



»>>>>>>>>>>♦ 

* FIRST 

STORE 
TRACEOACK 
. INFORMATION 



». SEE NOT* 



. YES * 



SET SECOND 

ENTR" FLAG 

TO ZERO 



SAVE ADDRESS 

OF FORMAT 

STATEMENT. 



SAVE 
<<<<<<<. CHAR/RECORO 
. COUNT 



t SECNO 



.SAVE BEGINNING . 

. ADDRESS OF 

. PACKEO OATA . 



.SET R PEGISTERS. 
. FOR INTTIAl . 
. ENTRY INTO 
KRAKFR 



. RJ KRAKER . 
. INITIALIZE . 



.FETCH DATA WORD. 
. INITIALIZE 
•CHAR/RECORO CTR. 
•ANO OATA BUFFER. 
. ADDRESS PTR . 



* RDA 



. SET CHAR/ WORD 

CTR - 10 
.FORM CHARACTER 

MASK 

* 

* ROB 



GET A 
CHARACTER 



.» IS ». YES 
». CHARACTER ••»»>♦ 
•• * ZERO .* * 



INSERT 

A 

BLANK 



* 

* NONE 



STORE 
CHARACTER 



. CHAR/RECORD = . 
•CHAR/RECORO-1. . 
. ADDRESS PTR = . 
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». CHAR/RECORO .»>>>>>> 
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<««<». CHAR/UORO 
«. CTR t . 
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■>>>>>>>>>>>>>>>>* 

* ERRS 



. SET REGISTERS 
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. INTO SYSTEM 



. RJ SYSTEM . 
.PROCESS ERROR. 
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•• SEE NOTE 2 • •>>»>* 
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. ADDRESS PTR « ■ 
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* 
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SET « 

to o 
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♦ 




NO 
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4. 
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♦ 
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.» LAST OP •• 
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t 
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* 


4 




• *• 
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♦ 
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t 


4 


NO 
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,* 


4 
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t 
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V 




4 


t 
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» 
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*NO 




4 


* 
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4 








4 
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4 


t 


4 
4 
4- 
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RESTORE 1ST SET, 
IN=OUT=FIRST 




. ERROR NO. =67 
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,MSG=UNASSIGNEO 


, 


4 


♦ 


*<<<<<<<. 


RESTORE LIMIT , 




4 








. MEDIUN, FILE 


. 


4 


t 


4 


. 


CLEAR LENGTH 
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, 


4 


♦ 


4 


. 
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t 
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4 
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* 




4 


* 
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4 


♦ 
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4 
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4' 


* 
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. RJ SYSTEM . 
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. 


4 


* 
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4 


♦ 
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4 


* 
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♦ 
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* 
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4 


4 
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♦ 
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t 
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* 


♦ 
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* 


4 


4 
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4 

4 
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t 
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♦ 
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4 


, 


CLEAR LENGTH 






♦ 
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.ABNORML. 
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4 
4 


* 


4 
4 
4 


• 
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♦ 
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4 


"4 


4 


•>>>>>>>>>>>>+<<<<<<<<<<<<< < 


t 
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* 


*<<<<<<» 
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* 
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T 
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♦ 


4 
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t 
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YES .♦ •, 
<<<<<». EOR 






PJ SIO. 
TRANSFER 




SET X6*Q 
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t 


4 


. 
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♦ 


4 
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4 


* 
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* 
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4 
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t 
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4 
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* 
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4 


t 
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■» 
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4 
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* 
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4 


* 
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.» BUFFER ♦, 


. NO 




♦ 
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f* * • 


NO 


4 


* 


• * * t 
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STATUS ,»>>>>>»t 
ZEtO .» 



.»>>»>>»>• 



,»>>>>>♦ 



*VES< <<<<<<<<<<<<<< 



♦YES<<«<«<<<«<< 



SET BUFFER 
STATUS TO 

BUFFER OP 
SET X6=l 



RESTORE B 
REGISTERS 



»<<<<<<<. 



* IOF 



JP CI01. 

ISSUE EOR 

RE»0 



o 



o 



a// 
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STORE B2. 




. SET BJ--B1 . 
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. RJ GETBA 




GET at 
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•• FILE •• YES 
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». FOUNO .* 
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*MO 






SET XS=NO. OF . 
WOROS RE»0 ST . 


ERRNO=81 


.MSG=UNASSIGNEO . 


LAST BUFFER . 


. HEOIUM, FILE . 


IN OP. 


XXXXXXX 


RESTORE 82 



. RJ SYSTEM . 
.PROCESS ERROR. 



ABORT JOO RJ TO ABNOONAL 






FILE *. VFS 

OPEN .»»>»>»* 



a*'.. 



o 



NO .» 



»N0 

* OPENFEI 



. »J OPEN. 
. OPEN FILE 



4.YES 
* FIRST 



.STORE TRACE8ACK. 
. INFORMATION . 
. INTO NAM.E+1 . 



HAVE ». YES » 

9A .*>>>*>♦ 



. RJ GET8A 
GET BA 



.» FILE ». 

». NAME 

*. FOUND .» 

*• • * 


YES ♦ 
»>>>>>♦ 


*NO 




* EPP 




ERRN0=8J 
. MSG-UNASSIGNEO . 
. MEDIUM, FILE . 

xxxxxxx 


* 
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. PJ SYSTEH 

HPITE OOT 

. FRROR MSG 
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4 ■ RJ ABNO'ML 

* • 

» . ABORT JOB 

+ ...... 



YES .* 
* <<<<<* , Bl> 



* OUTPTB1 * 



SET PRU • 
.TWICE PRU SIZE 
OS 1000 B 



*<<<<<<<<<<<<<< ♦ 



BUFFER ». NO 
BUSY ,»»>>> 



. JP CIOl. 

RCL UNTIL 
.BUF. NOT BUSY. 



.•. 11 

.* ". 

• LAST ». NO 

OP ,•>>>>>♦ 

'. REAO .• * 



*YES 
* BKSP 

. JP CIOl. 
<<<<<. BACKSPACE 
H/PCL 



*<<<<<<<<<<<<<< * 



.• LAST ». NO * 

. OP WRITE .*>»>»>>>* 

». BUFFER .• 



. JP CIOl. 
<<<<<<<. WRITE EOR 
W/RCL 
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+ NO 

+ 

. ONPG5 
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.». LAST 



*«<<<». BUSY 



. JP CIOl. 
WRITE EOS 
H/O »CL 
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► NO .» HDCNT ». 


STOUE P«U 


, <<«<<<<<< 




* 
* 

• * • 


•. YES 

» ♦ 


► *ves 

> ♦ BLECH 




> . FETCH NAXHOS . 

► ^INCREASE SOURCE. 
t , ADDRESS 



YES .* BIFF?'! ♦. 

<<<<<•. bust 



. JP CI01. 
.HRITE H/0 RCL. 



. FETCH FIRST, . 
.IN, PRU, LIMIT . 
. U!KNT<H0CNT-1 . 




* 

* LOOP 1 


* RJSI01 


.FETCH 0«T» HORD. 
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FETCH OUT . 
. PRU*POU-l . < 
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.* •• 
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► ». .* 
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► • • IS THIS *. NO 

r •• » ONE HORD .»>»» 
♦. WRITE .» 



•STORE DATA NORO. 
. STORE NEH IN . 
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•. > HAXWOS .•>>»>> 



«<««. »nCNT=HDCNT-l . 

» RJSIO 
RESET PRU 



. HDCNT=HOCNT»l . 
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. EXIT . 
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». .* 
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♦ 
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+ * + • 


t 
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t 


. SET SECOND 
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. ENTRY FLAG 


. 
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. 
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. SAVE ADDRESS 


, 
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OF FORMS! 


. 
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♦ 




STATEMENT 


• 
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♦ 
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* 
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♦ 
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♦ » + ♦ 
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* 


SAVE 


, 
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t«<<<<<* CH»R/*ECO^O 


• 
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COUNT 


* 


* t * 

♦ t + 



.SET CHAR PTR TO. 
. FHA DATA SUF. . 
. SET C/R CTR. . 
.SET WORD PTR TO. 
.DATA ITEM ADDR.. 

t HTA 

CLEAR A HORO . 
S€T CHAR/WORO . 
CTR 



i ♦ ♦ 

t WTB t * 

FETCH . ♦ ♦ 

CHARACTER . ♦ * 

••■•■.•••• «... , + ♦ 

* * f 



.» IS ». YES » ♦ 

». CHARACTER .»>»»♦>* 

♦ . ZERO .» ♦ ♦ 






YES •• IS *. 

<<<<<». CHAR/MORO . 
». CTR * .« 



SET BLANK 
CHARACTER 



t WTO 



LEFT SHIFT 
WORD 6 BITS 



.CHAR/ RECORD CTR. 
. * C/R CTR-1. . 
. CHAR/MORO CTR . 
. > C/W CTR-1 . 



STORE BLANK 
CHARACTER 



>»>>>>>>>>>>>+ 



LEFT SHIFT 
WORD 6 BITS 



.CHAR/RECORD CTR. 
. = C/R CTR-i. . 
. CHARfWORO CTR . 
. = C/W CTR-1 . 



STORE 
CHARACTER 



♦ ♦ 

t ♦ 

t- • 

» t 



t. * 
t ♦ 

♦ ♦ 

♦ ♦ 

♦ ♦ 

t ♦ 

♦ • 

♦ t 



• IS • 

CHAR/RECORD 
•. CTR>1 .» 
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IS 




», 
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♦ 


HAR/WC 


mi 


. 
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CTR * 





.• 







.» IS ». YES 

. CHAR/WORO ••>»» 
•. CTR * •• 



SET A WORD 
OF BLANKS 



t WTF 



o 



. STORE PACKEO 

WORD. 
. WORO PTR = 
. WORD PTR ♦ 1 



.• IS •. YES 

•. CHAR/RECORO ••>>»> 
». CTR » 1 .♦ 



<««. CHAR/RECORD CTR. 
. » C/R CTR - 1 . 



* WTG 



STORE WORD. 

WORD PTR « 

WORO PTR ♦ 1 



.SAVE WORD ADDR.. 

.SET CHAR BUFFER. 

AOORESS . 



*■<<<«<<<«<«< • »>>>>>>»>>>>»»♦ 



•SAVE BEGINNING 
. AODRESS OF 
. PACKEO DATA 



SET REGISTERS 

FOR ENTRY 

INTO SYSTEM 



.SET 9 REGISTERS. 
. FOR INITIAL . 
. ENTRY INTO 
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. RJ SYSTEM . 
'.PROCESS ERROR. 
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RJ KODER 
INITIALIZE 



.>>>»»* 



o 



Ncrrs 

i. -ast "' mm nui Mir fof htite 



SAVE 

8 

REGISTEPS 



TtS .♦ HAVE •• 
<<«<•. FET . 
•. ADDRESS .♦ 



. RJ GETS A 
.GET FET AODR. 



FILE 
NANE 
FOUNO 



*MO 
* ERR 



. YES 



PUT FILE 

MANE INTO 

ERROR MESSAGE 



. RJ SYSTEM . 
.PROCESS ERROR. 



* RfA 



CLEAR 
FLAG 



.• BUFFER •. NO 
•• STATUS=II .•»>» 



SET 

FLAG 



.». nee 



BUFFER ». MO 
BUST .•>»»>> 



. RJ MOt. . 

GO INTO .»»»> 
RECALL 



>»>»>>>>>»»* 



• • SEE NOTE t .•>>»>> 



»YES 

* Ree 



. RJ CIOl. 
'. EOF MRITE 
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• RED. 



. RJ ClOt. 
REMIND 



CLEAR 

RECORD 
COUNT 



CLEAR 

EOF 
FLAS 



SET 

BUFFER 
EMPTY 



•• FLAG 
SET 



. NO 



CLEAR 
FLAG 



CLEAR 
BUFFER 
STATUS 



* REI 



RESTORE 

1 

REGISTERS 
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HAIT UNTIL 
RAtl IS ZERO 



PLACE RCL 
IN RA+1 



WAIT UNTIL 
•»«♦! IS ZERO 
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o 
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MO .« FIRST 

• «<«•>. ENTRANCE 



>»>>>>>>>>»>>* 



o 



save data 
aootess 

TMAIrBl 



SAVE 

LIST LENGTH 

ARYt=8? 



B2I=F3RHAT 
CHAR POINTER 



B3I=D»T» 
CHAR POINTER 



B61 = l 

BH=ENO OF 

FMT 8UFF 



X?l=tOCC> 
OATA CHAR 
•POINTER 



Xlt=tXlM» 

ITEM REPEAT 

COUNTER 



REPEAT ». NO 
ITEM .•>»» 



HE ASSOCIATED LABEL 



ENO OF ». NO 
FORMAT .•»»>»♦ 

BUFFER .• * 



LONX 
GET NEXT 
FMT HORO 



*<<<<<«<««<< 



GET FORMAT 
CHARACTER 
Xl»=tB2» 



INCREMENT 

CHR POINTER 
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YES .» 


BLANK 


* 
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OR 
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COMMA 


.» 



RIGHT • 


NO 


PAREN 
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.• 
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. PAGE 


6 


■ • 
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>>»»>»>>>>>>> >»* 



. SET FLAG FOR . 

. MULTIPLIER . 

SET XM«1 . 



POINT TO 
., PRESENT CHR 
BSKB2-1 
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CNYR.T INTGR 

r X6 



. YES 
• *»»» 



SET FLAG FOR 

HO MULTIPLIER 

X7t*0 



.SET MULTIPLIER 
. X4»»l 



*<««<«€<«««< 
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LAST •. NO .GET ENTRY AOOR 

ENTRANCE .♦>>»>»»>»>>>>». TO LAST FORMAT 

.» . SPECIFICATION 

*. •• . Bkl=<NXSI 
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H3 .» 
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>»>>>>»>>>>>♦ 



NO .» 



>»>>>>>>>>>>>* 



NO .» 



>>>>>>>>>>>>>+ 



NO .* 



>>>>>>>>>>>>>* 



NO .» 



>»>»>>»>'»> + 



•. NO 



•. NO 



+ «<«<*«<«<< 



• NO 



*<<<<<<«<<<<<< 



►. NO 
B1>0 ,»>►>» 



*«<€<«<««< 



• SET I TEN 

* PEPEAT COUNT • 

XlNlsX6 • 



SAVE FORNAT • 
CHARACTER 
FUNLT1 = X1 



•• NO 



*<<<«<<<<<<<< 



. NO 



>»»>>>>>>>*»* 



*. NO 



*«<<«<<<<<«< 



*. NO 



+ < «<«<<*<<<<< 



. NO 



*««««««« 



». NO 
A ,»>>>>»♦ 



+ ««<<<<<<<<«<< 



• NO 



♦<<<<<<<<<««<<< 



•.NO 
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o 
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♦<<««<<<<<<<< 
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»>>>>>>>>>>»>>»>>>>>« 



• xm»5<. en MASK. 
. B6l=5 



* FRST 



o 



SET ADORESS 
OF OATA LIST 



. SAVE CONTENTS 
OF X7 
X3I«X7 



TRANSFER 
UIST ADDRESS . 
TO Bl 



GET ITEM 
. REPEAT COUNT 
XU = IXIN) 



.STORE DATA INTO. 

. LIST LOCATION . 

CB111=X& 



. REOUCE ITEM 
. REPEAT COUNT 
. X1H1=X1N-1 



.SAKE FORMAT ANO. 
.DATA CUR PNTRS . 

FCCI'8? 

PCCI*83 



SET tTEM 
.CONVERTED FLAO 
ITHI=X6 



GET LENGTH 

OF LIST 

B2t=Xlt«(ARYI 



GET CURRENT 
FORMAT CHR 
XZIstFUNLTI 



N3 .• LIST 
»«<<<«. IENGTH=A 



>>»>>>»»»»* 



.BJ=FHT AOORESS 
. Xl-STATEMENT 
. NUMBER 

X2=X1 



SET RECORD 

COUNT TO 1 

(RAO>t=l 



. POINT TO NEXT . 
. LIST ELEMENT .> 
. 8tl-Bl*l 



>>>»»>>»»>>+ 



•. YES 



♦ NXT ♦ * 

♦ ♦ 

t * 

♦ * 

♦ ♦ 



.EXTRACT UPPER . 
. 6 SITS OF XI . 
. INTO X". 



REDUCE LIST 

LENGTH 

B2l=°B2-t 



RESTORE XT 
X7I=X3 



NO .» DOUBLE 
<<«». PRECISION 



STORE LONER 
ELEMENT 
181>I*X7 



. POINT TO NEXT 
. LIST ELEMENT 
BH=B1«1 



REOUCE LIST . 
LENGTH 
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.♦. EX* 



YES .» Kit 
«<<<<>. A SPECIAL 
•. CHAR . 



»NO 



YES . 



IS x» 

BET KEEN 

0.9 



♦NO 



♦ * 

♦ ♦ 

♦ * 

♦ * 

♦ + 
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♦ « 

♦ ♦ 

♦ * 

» ♦ 
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,• ZERO ». NO ♦ » 

». FILL IN .•>»»>* ♦ » 

». Xt .* * ♦ * 

•. •• * ♦ ♦ 

• * t * 

♦YES * ♦ » 

A ♦ ♦ * 

. NVAR ♦ » * 

. . ♦ » ♦ 

. » . » ♦ * 

• ♦ * 

* t * 

♦ ♦ * 

» ♦ * 

» NXT1 t * 



. * * 

i •• * * 

t * 

♦ * 

♦ ♦ 

♦ * 
». NO ♦ * 
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». 
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* .• 


2CRO •• NO 
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FILL LAST ,»»>»>* 




,» 




* 
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CHR .• * 


* • •• 






* 




•• .• * 


• 






♦ 
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. RE-SCAN LEVEL . 
. ILVLOT l*X6 



»>»>»>»»>>>>>»>* 



^¥* 



A-021. S 



>K005»< 

TMf • INSIOE CONNECTORS STANOS FOR THE ASSOCIATED LABEL 



YES • • 



>»>>>>>»>>»+ 



•GET PAREN GROUP. 
. REPEAT FLAG . 
. Xtl=tXPARN) . 



. GET RE-SCAN . 

. REPEAT COUNT . 

B5«=X1 



TES .» 
+ <««•, 85*0 



ASA ». NO 

FORTRAN .•>»>>♦ 



*<<«<«««« 



•GET PAREN GROUP. 

. REPEAT COUNT . 

X2l=(XPG) 



REDUCE PAREN 

REPEAT COUNT 

X1I=X2-1 



•• PAREN •• TES 
. GROUP .»>»>>» 
•. CLOSED •• 



>>>>>»>>>>>>>* 



SET 

REPEAT COUNT 

[XPG>t*X6 



SET PAREN 
REPEAT FLAG 
IXPARNI 1=X7 



GET FORHAT 

CHR POINTER 

X6I=92 



GET FORHAT 

NORO POINTER 

XtKtFAD) 



SHIFT NORO 

POINTER LEFT 

II BITS 



PACK NORO ♦ 

CHR POINTER 

INTO X6 



o 



>»»»>>»>>»+ 



SET AOORESSES . 
FOR FIRST 
PAREN LEVEL . 
CLOPI t*X6 



o 



GET RE-SCAN . 

PAREN GROUP . 

REPEAT COUNT . 
X21-MXPG1I 



REDUCE 

REPEAT COUNT 

X7t=X?-l 



RPF 



.• GROUP •• NO 

. COHPLETE .*>>>>>»>>» 



STORE LEVEL I 
DECREMENTED 

REPEAT COUNT 
IXPG1IOX7 



». MULTIPLIER .•>»>» 



**««<<<€<«< 



. CLEAR I TEN 
.CONVERTEO FLAG . 

. iiTmi~a 



.RESTORE LEVEL 1. 
.REPEAT COUNTER . 
. tXPGlll=X7 



• RESTORE PAREN . 
.LEVEL INOICATOR. 
. CLVL0II*X7 



SET OPEN 
PAREN GROUP . 
START ADDRESS . 
(LEVP>t»x6 



.GET AOORESS OF 
. HATCHING ( 
. OR HI 

. XltstLOP2l 



LOOP TO CONTINUE FORHAT 



o 



¥/ 



o 
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OZ. 



GET PAREN 
.LEVEL INDICATOR. 
. XZ1=<LVL01 



INCREHENT 

LEVEL BY ONE 

X7t«X3*l 



SAKE CURRENT 

REPEAT COUNT 

(XPG>l°=X6 



OECREMENT 

LEVEL BY TWO 

X0t=X2-Z 



SET NEH 

LEVELtl 

ILVL0H=X7 



.SHIFT NEH LEVEL. 
. LEFT 35 BITS . 



YES •• PAREN 
+ «<<<•. GROUP 

* ». CLOSED 



>>>>>>»>>>>>>>* 



YES •• INITIAL ». 
«<<<'. LEFT . 

•. PAREN .• 



THIRO •. YES 
PAREN IN .»>»> 

. A ROM .» 



»>>»>»>>»>>>* 



.SET PAREN GROUP. 
. REPEAT FLAG . 
. Xl>= (XPARNI . 



.EXTRACT GROUP 1. 

. REPEAT COUNT . 

FROM XI . 



. PACK LEVEL. . 

.SRP 1 AND GRP 2. 

. REPEAT COUNTS . 

INTO XT 



. SAVE LEVEL 1 
. REPEAT COUNT 
. [XP61lt=X6 



* LPF 

. SHIFT CURRENT 
. REPEAT COUNT 
. LEFT tS BITS 



.PACK NEH LEVEL . 

. AND CURRENT .>>»»>» 

. REPEAT COUNT . 

INTO X7 . 



»»>>>>>»>>»>* 



RESET XPARN 
(XPARNI 1»X7 



PACK CURRENT 

MORO AND CHR 

POINTERS 

INTO X6 



. CLEAR ITEM 
.CONVERTED FLAG 

ttrmi*a 



LEVEL 1 .»»»>• 



CLEAR LEVEL 

FLAG 
(LPFLG1 «»0 



SAVE RE -SCAN 
POINTERS 
(LOPS)t»X* 



♦ LPE 



. SAVE CURRENT 
HORD AND 

. CHR POINTERS 
(LOP) l*X6 



LOOP TO CONTINUE FORHAT 



Jlrj- 
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A-D?l. 1J 



o 



.». SLASH 
.* *. 

YES .♦ ». 

«<<<». MULTIPLIER •• 
». PRESENT .» 



>»>>>>>>>>>>* 



GET OAT A 

•BUFFER ADDRESS 

Xlt=tOAO> 



YES •• DATA 
»«<«•. IN 

* *. BUFFER 



. STORE BLANK . 
. 1B3I1=X7 



INCREMENT 

OATA POINTER 

B3=83H 



* SLB 



SAVE 

REPEAT COUNT 

tMTHM = X6 



SET END 

OF BUFFER 

(B3> 1 = 



HTNX 
OUTPUT 
OATA LINE . 



REDUCE 
REPEAT COUNT . 
MTH*HTH-1 



•• ALL ». NO 

LINES .•>>>>> 
». OUTPUT .» 



SAVE 

REPEAT COUNT 

(UTHI t=X6 



XOV 

CHECK 

OVERFLOW 



.♦ ». 

*. YES 
REPEAT .»>»»* 



*<<<<<<<<<««<«< 



X6«=55B 



+ 

» XCA 



STORE BLANK 
tB3)I=X5 



. POINT TO NEXT . 
. DATA CHR 
83=B3*I 



REDUCE 
. REPEAT COUNT 
XlrXl-1 



.♦ REPEAT •. NO 

•• COUNT*0 .•»»> 



LOOP UNTIL ALL BLANKS 
STOREO 



•SAKE HOLLERITH 
. FIELD WIOTH 
tUTH»t=X6 



XOV 
CHECK FOR 
OVERFLOH 



NO 



. R*. + 

■*•• • * 

♦ 
♦ 

* » * 
#••••••..••••••• • ••..♦.•*•■..»... 

SET . t . POINT TO NEXT 

REPEAT COUNT . ♦ . DATA CHR 

BStxfMTHI . * . B3«B3*1 

■•••••••••••«••■ * ««••••■■•••••••• 

* ♦ ♦ 
« » * 

* ♦ .'. 

* * .» »■ 

♦ NO •• REPEAT ». 

• HGA*<«<«<<<<««<«<<<«« a COUNTsb • 



0: 



.• END ». NO » 

». FORMAT .»>»»». • 

». WORD .' » » 

♦. .» ♦ » 

* ' • » 
*YES » ♦ 

* * * 
•••••••■••... * ♦ 

LDNX . » » 

GET NEXT . * f 

. FORMAT KORO . t ♦ 

* ■ ♦ > 

» HCB » 

««••«■•»••■•«•••• ♦ 

. GET FORMAT . ♦ 

• CHARACTER . ♦ 

. X1I=CBZ> . t 

«••»•••••••••••■• t- 

* » 

* t 

* ♦ 
■•..»■.•••»•••••» » 
. POINT TO NEXT . » 
. FORMAT CHR . » 

8Z°B2»1 . » 

•••■••■■■••■■••.• * 

+ * 

* ♦ 

* ♦ 

REDUCE . » 

. REPEAT COUNT . « 

. 85=85-1 . » 

* » 

* * 

* * 

. STORE FORMAT . ♦ 
CHR IN .>>»>»>» 
. OUTPUT BUFFER . 
(B3>1=X1 



LOOP UNTIL ALL CHRS 
STOREO 



o 



o 
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.». STAR ♦ 

.♦ *. ♦ 

NO .» ENO •• ♦ 

.«<<<•• FORHAT .* ♦ 

i ». MORO .» * 

* • • .* * 

* * ♦ 

+ *VES ♦ »»»>>»>>»»* 

, * » ♦ . .». 

t t r ■.»■•.. 

* . IWX . ■♦ • MO .• LINE ». 
t • GET NEXT • »<«<<<«<<»• OVERFLOW •• 

♦ ". FORHAT HORO . ♦ *• '•* 

♦ 

t * * 

>»»»>>»>>>>* * *TES 

♦ STB ♦ ♦ 
><- » * 

. GET FORHAT . ■ * 

. CHARACTER . ♦ «-OOP UNTIL MA CHRS 

X1KIB2I . » STOREO 

........... ♦ * 

* * * 

4 ' * 

♦ * * 
......... a.a.aaa. * * 

. GET CHR/REC . ♦ • • 

. COUNT . * . R3. 

X&lMCNT) • ♦ ..... 

'♦ • » ■ 

* ♦ 

........a ..a.-*.* * 

.GET ADDRESS OF . ♦ ' 

. DATA BUFFER . ♦ 
X3I=tDAO» a ■ . • 

.•••■•• a* ••«••.• • * 

* » 

♦ ♦ 
» * 

a.a....aa.«.aaaa * 

'. OFTERHINE . . ♦ 

LHA*1 OF a » 

. DATA BUFFER . » 

X3l=X3tX6 . ♦ 

..aaaaaa.aaa.a*. ♦ 

" * • 

. » 

•••• a. ... ...a.aaa ♦ 

. POINT TO NEXT . • 

. FORHAT CHR a » 

B2=BZ»1 . ♦ 



SET SIGN (♦I •»»»* 

X6*0 . * 



SET SIGN t-» 

X6»T»B 



♦ HI* 



STORE SIGN 
(SGNIOX6 



FHO 
GET SCALE 
.FACTOR IN X6 



NEXT •. YES 
CHR-tPI ••»»»» 



»<<<«<<<<<<<< 



SET 

SCALE FACTOR 
(SCA> l=X6 



NO .♦ • ■ *. 

«<<<•. IN . 

». FORHAT •• 



GET SIGN 
XJ«= (SGNt 



GET SCALE 

.FACTOR POSITIVE. 

. OR NEGATIVE . 

IN X» 



>»>>>>»»*>♦ 



STORE FORHAT . 

CHR IN . 

OUTPUT BUFFER . 

IB3X-X1 a 



INCREMENT FNT 

CHR POINTER 

BZ=BJ*1 



POINT TO NEXT . 
DATA CHR 

B3=B3»1 



►»>>»f 



STORE 

SCALE FACTOR 

ISCA>«=X6 



CONTINUE FORMAT 



^¥^ 
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. FHO 

GET FIELO . 
. HIOTH IN XS . 



.SET FIELD NIOTH. 
(HTHI l=X6 . 



» ICOA 



XOV 
CHECK FOR 
OVERFLOW 



.GET THE NUMBER . 

.TO BE CONVERTEO. 

X2t=tBll 



•CONVERT INTEGER. 
.10 TO FLOUTING . 
. POINT IN XI . 



YES .» NUNBER ». 
««<«». POSITIVE .« 



COMPLEMENT 
NUNBER 
BXS-XJ 



* IC» 



. SET 12 BIT . 

. MASK IN X3 

. (2»59 TO !»!(«» , 



. MASK OUT 

. LOWER ta BITS .>>»> 

. OF THE NUMBER . 



FOR THE ASSOCIATED LABEL 



POINT TO 

START OF 

.NEXT DATA FIELO. 

83*83 »NTH 



. POINT TO LAST . 
.SLOT OF CURRENT. 
. FIELO, LHA 
8S»B3-1 



SAVE 

FIELO HIOTH 

B»=X1 



•• NO. •. YES ♦ 

*. LESS THAN .•>>»>♦ * 

*. 2»*» .• » » 

•. .» ♦ . 

* * ♦ 
*NO * ♦ 

' * * » 

.••«*. * ♦ 

.SET R IN FIELO . ♦ ♦ 

. FOR OVERFLOW . * * 

X61-228 . * ♦ 

• » »•*•• + * 

* * » 

* ♦ » 

. + ♦ 

* . * * 

•ICE. * » 

..... ♦ * 

♦ ♦ 

<• ICB •> 

a... ... a a ... ..... ♦ 

•EXTRACT OECINAL. » 

. DIGIT FROM . t 

. NUMBER, Nl . , 

.N-10»INT[N/10» . ♦ 

.« a . « ... • . a a a. •• . , 

* ♦ 

. CONVERt'dIGIT*. , 

• TO DISPLAY CODE. » 
. X6t=X6»339 . • 
. a . a a a. a •...«. s . a , 

* * 
.* , 

. . a a a a. a a a » • .a a.. ♦ 

. STORE DIGITS . . 

BACKWARD . t 

. FROM LNA . , 

. tSSM'Xb . , 

. .. a..a a a a. a a.... ♦ 

* , 

* * 
aaao. ... a aaa •■ aa a ♦ 

MOVE OAT A . » 

.BUFFER POINTER . . 

. BACK ONE SLOT . , 

. B5=B5-t . , 

•aaaaaaaaaa...... ♦ 

* » 

* » 
.......a a ........ * 

REDUCE . . 

. FIELO HIOTH . » 

. B^SH-l , i 

• ••• a a... ., a ..... * 

"'» ♦ 

« ■ ■ » 

» » 

. •••••••• aa •••«.. ♦ 

.RESTORE AOORESS. » 
OF NUMBER .»>>»>« 
811 oAZ 



>»>»>>>>>>»»>>* 



FIELO 
HTH»0 



. NO 

• •>»»♦ 



o 



»»>»»►>>»>>»•>* 



IS 

REMAINOER 
. »« 



*YES 



. NO 



YES .» 



IS 

SIGN 



*N0<c «<<<<<«< 

* ICC - 



SET » IN . . 

LEFT MOST 
•FIELO POSITION . 
. FOR OVERFLOW. . 



* 

* ICE 



STORE SIGN 
(85I.ZX6 



HOVE DATA 

POINTER BACK 

ONE SLOT 

85=85-1 



REDUCE 

FIELO HIOTH 

B**B<t-l 



SET X6 BLANK 

K*I«55B 



.* FIELD •. NO 
. COMPLETE .»»»>»> 



* ICF 



YES .• 



IS 

REMAINOER 
*0 . 



LOOP FOR NEXT OIGIT 



© 



. SET RE-ENTRY . 

xn*icoA 



o 



o 
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.C16. 



.Ct7. 



* tCOOE 



FNO 
SET FIELO 
. MDTH IN X6 



FNO 

GET FIELD 

WIDTH tX6» 



NO .» 
<««•. HTH=0 



>»>>>*»»>»+ 



». NO 
WTH=0 .»>»» 



«<««<««<<< 



SET 
FIELD NIOTH . 
IHTHM=X6 



SET 

FIELD HIDTH . 
(NTH1 »*X6 . 



XOV 
CHECK FOR 
OVERFLOW 



XOV 
CHECK FOR 
OVERFLOM 



SET DATA 

TO CONVERT 

X2t*(81> 



SET OAT* 
TO CONVERT 

xz»tai> 



avf 
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SET 

NIOTH COUNTER 

8M-X1 



. SET LOHER 
. 6 SIT HASK 
. XI)=>00-00778 . 





NO 


• * 


IS * 


*«<<<• 


• 


MTH>10 


+ 




•. 


. 


4 






»• ♦• 


* 






* 


* 






•TES 


+ 






■■ * ■ 


* 






• ACRD 


+ 






■ • • 


+ 






• • . 


* 








+ 








* 








>>»»>>»»»* 








* ACA 



. LEFT SHIFT . 
.OFFER CHAR INTO.<«< 
. LONER 6 BITS 



EXTRACT DATA 

CHAR FRON 
LONER I SITS 



REOJCE 
FIELD NIOTH 



»»»>>>>>»»>» 



DATA *. NO 

CHR'O .»>>»» 



SET DATA CHR . 
TO BLANK . 



» ACS 



STORE DATA 
CHR INTO 
OUTPUT BUFFER . 



INCREMENT 
. OATA OUTPUT 
•BUFFER POINTER 
B3*83tl 



NO •• FIELD 
<«««*. COMPLETE 



SET 
.RE-ENTRY POINT 
XFtsACOA 



. SET 

. NIOTH COUHTER 
0»>=*XI 



SET 6 BIT 

. HASK LONER 

. xa«too-oo7r>s . 



ARCO 



. SET OATA CHR 
. POINTER TO 
. START OF NEXT 

FIELD 
. B3«B3»WTH 



SET BS TO LNA 

OF PRESENT 
OUTPUT FIELD 



SET 

CHR COUNTER 
87*12B 



.• CONKER- •• NO 
*. SION CON- ••»»»»> 
•. PLETE •• 



>»»>>>»>>>>»♦ 



.EXTRACT LONER 6. 
. BITS OF OATA . 
. WORD INTO X6 . 



SHIFT OFF 
LOHER 6 BITS . 
OF OATA HORO • 



OATA ». HO 

CHR=0 .»>»» 



. SET OATA CHR 
. TO BLANK 



*«««««««««■ 
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.ARB. 



o2^ 



A-02I. I* 



o 



. STORE OATA 
.CNR (BACKHAROt 
. <BSH«X6 



* OCOOE 



FHO 

6ET FIELD 

WIDTH (X61 



HOVE OATA 

CHR POINTER 

BACK ONE 

B5*B5-1 



SET 
. FIELO NIDTH 
. IHTHII*>X6 



REOUCE 

FIELO WIDTH 

B*»B*-1 



REDUCE 
. CHR POINTER 
B7=B7-1 



•• NO 
WTHsO .»»»> 



.♦. 
.« •. 


. NO 


«... « 

♦ 
* 

* 


' 


* 

* OCOA 


•• B7*0 

*. .« 


X7»JJB 

xa»7 


• 


♦ YES 

* ■ 
+ 


* 
■♦ 
* 




• SET DATA CHR 

• TO BLANK 


'. 


X0¥ 
CHECK FOR 
. OVERFLOW 


[• 


* 
»»»>>»»»♦ 

♦ .♦. ARC 

♦ •• •. 


. TES 


♦ 
* 
♦ 




» •• FIELO • 

♦ •• NTH=0 

♦ ». .» 

♦ ». .» 


GET DATA 

TO CONVERT 

XEt'(Bl) 


•' 


♦ *HO 

♦ * 


• 
4 




♦ . STORE BLANK 

* . CHARACTER 
» . IB5IIEX6 


: 


.RE 


SET 

•ENTRY POINT . 
X7l»RCOA 


• 


S6T START 

OP FIELD 

•»t»B3 


• 


* * 

♦ * 






* 
♦ 

.EXT. 




* 




♦ . NOVE OATA 

♦ . CHR POINTER 

♦ . BACK ONE 

♦ . 05*85-1 


• 


* 
* 


SET BI TO FHA 

OF NEXT FIELO 

83*83*HTH 


• 


* ♦ 

♦ * 






* 
* 
♦ 




♦ . REOUCE 
♦<««. FIELO WIDTH 

. Bi.=B*-i 




• 


SET STORAGE 

POINTER 
(BOTTOM UPI 

353=93 


• 




• 






♦ 
* 






.SET COUNTER FOR. 

.*« OCTAL DISITS. 

B7*«Z*B 



o 



o 



J>-V7 



^ b- /» 
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o 



>>>>»»»»>>♦ 



.» FIELD •• YES 
». COMPLETE .•>»» 
♦. (B"t=8S> • • 



.EXTRACT RIGHT- 
. HOST OCTAL 
DIGIT 



REDUCE CHR 

COUNT 

87=87-1 



. CONVERT DIGIT . 

.TO OISPLAY CODE. 

X6=X6*338 • 



POINT TO NEXT 

OUTPUT BUFFER 

HORD 

B5=B5-1 



STORE OATA 

CHR IN 

OUTPUT BUFFED 



SHIFT OFF 

. RIGHTMOST CHR 
.FROM OATA HORO 



NO 


.» 


20 


<<«» 


. 


PROCESSEO 




». CHARS 



.SET X6 TO BLANK. 
X6t=55B 



o 



>»>>>>»>»»* 



.• FIELO •. »ES 
». COMPLETE .♦>»>: 
•. IB»=B5I .• 



OR THE ASSOCIATED LABEL 



♦ OCO 



POINT TO 
NEXT OUTPUT . 
BUFFER HORO . 
B5=85-l 



. STORE BL»MK 
«<««. CHARACTER IN 
. OUTPUT BUFFER 



SFT RE-ENTRY . 
ADDRESS 
X7l=0C0A 



* LCOOE 



FMD 

GET FIELD 

HIOTH tX6) 



•. NO 
WTH*0 .•»»>* 



»«<«<<««««< 



SAVE 

FIELD WIDTH 
tMTHJ l*X6 



SET XT 

TO BLANK 



XOV 
CHECK FOR 
OVERFLOW 



GET DATA HORO 
XZKHB1) 



SET TRUE 

CODE IT) 

XM*2<tB 



.POINT TO START 
. OF PRESENT 
FIELD 

851=83 



. SET OUTPUT 
.BUFFER POINTER . 

START OF .»>»»> 

. NEXT FIELD 
. B3«HTH»»J . 



>>»>>>>>>>>»>>* 



SET Vt TO 
, ENO OF FIELD 
Bt-83-1 



YES .• FIELO •. 
«<». MIOTH .• 

•• SI .• 



4NO«<«<««< 
♦ ICA , 



STORE BLANK 
CHARACTER 
1851 l'X7 



. POINT TO NEXT . 

. BUFFER HORO . 

OS«B5*l 



•. NO 



>»»>>»»>> *YES 
* LCB 



. SET RE-ENTRY. . 
AOORESS 
X7I-LG0A . 



YES •• 



NO 



. SET FALSE 

CODE IF! 
XSK06B 



»»»>>»»»»*<««<<«<«<<«< 



. STORE QATA 

. CODE IN LHA . 

iem »xe 



A-OZt. is 



. GET ADDRESS 
.OF OATA BUFFER 

Ill'tWO) 



SET XT 
TO BLANK 



SET XZ TO 
.CURRENT SUFFER 
. POINTER, 8] 



DATA 


•. YES 


IN 


.»>>>>>* 


BUFFER 


• • ♦ 


•. •• 


♦ 



.STORE BLANK IN . 
. OUTPUT BUFFER . 



INCREMENT 

.BUFFER POINTER . 

B3*83»86 



» LAA 
SET X7»0 



•STORE ZERO FOR . 
. ENO OF BUFFER . 



HTNX 

OUTPUT 

OATA LINE 



o 



4 > s 



o 



m&9f£JiY / er^ 



